forked from WycliffeAssociates/en_ulb_tagged
Beginning tagging of Luke
This commit is contained in:
parent
ba06339b81
commit
abf7c2cfe9
|
@ -116,8 +116,8 @@ say "\nDone.";
|
|||
__DATA__
|
||||
#41-MAT Matthew
|
||||
#42-MRK Mark
|
||||
#43-LUK Luke
|
||||
44-JHN John
|
||||
43-LUK Luke
|
||||
#44-JHN John
|
||||
#45-ACT Acts
|
||||
#46-ROM Romans
|
||||
#47-1CO 1 Corinthians
|
||||
|
|
|
@ -28,7 +28,7 @@ my (%ULBtextThisVerse, %ULBpreTextThisVerse, %SNsThisVerse, %entriesThisSN, %lon
|
|||
|
||||
my @OGNTfilesToRun = ();
|
||||
#my $filePattern = '\.xml' ;
|
||||
my $filePattern = '44-JHN\.xml' ;
|
||||
my $filePattern = '43-LUK\.xml' ;
|
||||
find( sub { push @OGNTfilesToRun, $File::Find::name if ( m/^(.*)$filePattern$/ ) }, $topDirOGNT) ;
|
||||
|
||||
say LOG "\@OGNTfilesToRun:\n@OGNTfilesToRun\n";
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue