diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index 2332cba..3521a41 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -592,8 +592,8 @@ foreach $file (@files) { $line =~ s/\\vp\*\s*//g; $line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*//g; - ### Paragraphs--Markers Supported: \p, \b, \m, \nb - #### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \cls, \li#, \pc, \pr, \ph#, \b + ### Paragraphs--Markers Supported: \p, \b, \m, \nb, \cls + #### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \li#, \pc, \pr, \ph#, \b # Hack to solve an issue in a module that used <R> for linebreaks in the usfm files--may be commented out (not USFM 2.1) $line =~ s/\\lb\*/<lb \/>/g; @@ -627,6 +627,15 @@ foreach $file (@files) { openTag("<\/p>"); $line =~ s/\\mi2\b\s*//; } + # \cls paragraph (From Chapters and Verses) + if ($line =~ /^\\cls\b\s*/) { + if ((($moduleType eq "comment") && ($divOpen))||($moduleType eq "bible")){ + push (@outdata, closeTag("<\/closer>")); + } + push (@outdata, "<closer>\n"); + openTag("<\/closer>"); + $line =~ s/\\cls\b\s*//; + } # \b $line =~ s/\\b\b//; |