diff options
| author | Chris Little <chrislit@crosswire.org> | 2009-02-08 08:30:39 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2009-02-08 08:30:39 +0000 |
| commit | 3d1343883a78b3c36878323c3129babc26b3c6db (patch) | |
| tree | 0361c536fc231466dbab2345f8287ab407dc88c0 /modules/perlconverters/usfm2osis.pl | |
| parent | d36cf1a52887a13cecb0c4bb064d0c142094c348 (diff) | |
| download | sword-tools-3d1343883a78b3c36878323c3129babc26b3c6db.tar.gz | |
one more added tag, for Orya Bible
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@150 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters/usfm2osis.pl')
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index 5747e18..5cdb375 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -493,8 +493,8 @@ foreach $file (@files) { # \m $line =~ s/\\m\b//; - ### Poetry--Markers Supported: \q#, \qs...\qs*, \qc - #### Markers Not Yet Supported: \qr, \qa, \qac...\qac*, \qm#, \b + ### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, \qm# + #### Markers Not Yet Supported: \qr, \qa, \qac...\qac*, \b # \qt...\qt*, OT quotation (handle early) $line =~ s/\\qt\b\s*(.*?)\\qt\*/<seg type="otPassage">$1<\/seg>/g; @@ -505,7 +505,7 @@ foreach $file (@files) { push (@outdata, "<lg>\n"); $l = 1; } - if ($line =~ /\\q(c|\d*)$/) { + if ($line =~ /\\qm?(c|\d*)$/) { if ($1 eq "") { $line = "<l>\n"; } @@ -523,7 +523,7 @@ foreach $file (@files) { } else { $line =~ s/\\q\b\s*(.+)/<l>$1<\/l>/; - $line =~ s/\\q(\d+)\b\s*(.+)/<l level=\"$1\">$2<\/l>/; + $line =~ s/\\qm?(\d+)\b\s*(.+)/<l level=\"$1\">$2<\/l>/; $line =~ s/\\qc\b\s*(.+)/<l type=\"x-centered\">$1<\/l>/; if (@filedata[$i+1] !~ /\\q(?!t)/) { $line .= "\n<\/lg>"; |