diff options
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index fa02657..244a24b 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -424,13 +424,18 @@ foreach $file (@files) { ### Titles, Headings, and Labels (elsewhere?)--Markers Supported: \d, \ms#, \s#, \mt#, \r, \sp #### Markers Not Yet Supported: \mte#, \mr, \sr, \rq...\rq* - # \d \ms majorSection - if ($line =~ /^\\(ms|d)\b\s*(.+)/) { + # \ms majorSection + if ($line =~ /^\\ms\b\s*(.+)/) { push (@outdata, closeTag("<\/p>")); push (@outdata, closeTag("<\/div type=\"majorSection\">")); push (@outdata, "<div type=\"majorSection\">\n"); openTag("<\/div type=\"majorSection\">"); - $line =~ s/\\(ms|d)\b\s*(.+)/<title>$2<\/title>/; + $line =~ s/\\ms\b\s*(.+)/<title>$1<\/title>/; + } + # \d canonical title + if ($line =~ /^\\(ms|d)\b\s*(.+)/) { + push (@outdata, closeTag("<\/p>")); + $line =~ s/\\d\b\s*(.+)/<title type=\"canonical\">$1<\/title>/; } # \s \s1 section (From Chapters and Verses) |