forked from WycliffeAssociates/en_ulb_tagged
Tagging into Mark 16
This commit is contained in:
parent
4d87a4c534
commit
195f782bfd
|
@ -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;
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue