[sword-svn] r150 - trunk/modules/perlconverters

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-02-08 01:30:39 -0700 (Sun, 08 Feb 2009)
New Revision: 150

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
one more added tag, for Orya Bible

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-02-08 07:57:17 UTC (rev 149)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-02-08 08:30:39 UTC (rev 150)
@@ -493,8 +493,8 @@
 	# \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 @@
 		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 @@
 	    }
 	    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>";