lenrsmith
/
en_ulb_tagged
forked from WycliffeAssociates/en_ulb_tagged
1
0
Fork 0
Files Issues Pull Requests Releases Wiki Activity See in Reader

Tagging into Mark 16

This commit is contained in:
Henry Whitney 2020-09-07 17:28:08 -04:00
parent 4d87a4c534
commit 195f782bfd
2 changed files with 2028 additions and 1721 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Check_ULB.pl
View File

@ -37,7 +37,7 @@ sub GetGist {
my ($verseRef, $standard, $tagged);
say LOG "|$fileName|, |$fullName{$fileName}|";
# while ($wholeTaggedText =~ /<verse name="($fullName{$fileName} \d+:\d+)">((.|\n)*?)<preText>(.*?)<\/preText>((.|\n)*?)\n\t+((<w ((.|\n)*?)\n)*)\t+<\/verse>/sg) {
while ($wholeTaggedText =~ /<verse name="($fullName{$fileName} \d+:\d+)">((.|\n)*?)<preText>(.*?)<\/preText>((.|\n)*?)\n\t+((<w(>| )((.|\n)*?)\n)*)\t+<\/verse>/sg) {
while ($wholeTaggedText =~ /<verse name="($fullName{$fileName} \d+:\d+)">((.|\n)*?)<preText>(.*?)<\/preText>((.|\n)*?)\n\t+((<(w|usfm)(>| )((.|\n)*?)\n)*)\t+<\/verse>/sg) {
my ($preText, $gist) = ($4, $7);
$gist =~ s/<comment>.*?<\/comment>//sg;
$verseRef = $1;

3747
Manual_Tagging/42-MRK.xml
View File

File diff suppressed because it is too large Load Diff