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

[refdoc at crosswire.org]

Author: refdoc
Date: 2009-10-19 19:17:05 -0700 (Mon, 19 Oct 2009)
New Revision: 216

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
correction - enclose up to end of line for acrostic


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-10-20 00:53:06 UTC (rev 215)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-10-20 02:17:05 UTC (rev 216)
@@ -528,15 +528,15 @@
 	# \nb
 	$line =~ s/\\nb\b//;
 
-	### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, \qm#
-	#### Markers Not Yet Supported: \qr, \qac...\qac*, \b
+	### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, qa, \qm#
+	#### Markers Not Yet Supported: \qac...\qac*, \qr \b
 
 	# \qt...\qt*, OT quotation (handle early)
 	$line =~ s/\\qt\b\s*(.*?)\\qt\*/<seg type="otPassage">$1<\/seg>/g;
 
 	# \qa (Acrostic marker)
 	
-	$line =~ s/\\qa\b\s*(.*?)/<hi type=\"acrostic\">$1<\/hi>/g;
+	$line =~ s/^\\qa\b\s*(.*$)/<hi type=\"acrostic\">$1<\/hi>/g;
 
 	
 	# \q line