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

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-12-19 17:48:15 -0700 (Sat, 19 Dec 2009)
New Revision: 259

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
added handling for \qs (selah) that occurs mid-line
I don't think this generates particularly good OSIS, but I don't think it is converting from particularly good USFM, either.

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-12-20 00:37:47 UTC (rev 258)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-12-20 00:48:15 UTC (rev 259)
@@ -629,7 +629,9 @@
 		    $l = 0;
 		}
 	    }
+	    $line =~ s/\s*\\qs\b\s*(.+?)\s*\\qs\*/<\/l>\n<l type="selah">$1/;
 	}
+	$line =~ s/\s*\\qs\b\s*(.+?)\s*\\qs\*\s*/<lg><l type="selah">$1<\/l><\/lg>/;
 
 	### Tables--Markers Supported: \tr, \th#, \tc#, \tcr#
 	####Markers Not Yet Supported: \thr#