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

[refdoc at crosswire.org]

Author: refdoc
Date: 2009-10-19 17:53:06 -0700 (Mon, 19 Oct 2009)
New Revision: 215

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
added support for Acrostic marker


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-10-03 07:57:32 UTC (rev 214)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-10-20 00:53:06 UTC (rev 215)
@@ -529,11 +529,16 @@
 	$line =~ s/\\nb\b//;
 
 	### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, \qm#
-	#### Markers Not Yet Supported: \qr, \qa, \qac...\qac*, \b
+	#### Markers Not Yet Supported: \qr, \qac...\qac*, \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;
+
+	
 	# \q line
 	if ($line =~ /^\\q/) {
 	    if ($l != 1) {