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

[refdoc at crosswire.org]

Author: refdoc
Date: 2011-07-22 16:59:47 -0700 (Fri, 22 Jul 2011)
New Revision: 336

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
added support for \rq..\rq*, i.e. inline reference



Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2011-07-12 00:44:16 UTC (rev 335)
+++ trunk/modules/perlconverters/usfm2osis.pl	2011-07-22 23:59:47 UTC (rev 336)
@@ -421,8 +421,8 @@
 	}
 
 
-	### Titles, Headings, and Labels (elsewhere?)--Markers Supported: \d, \ms#, \s#, \mt#, \r, \sp
-	#### Markers Not Yet Supported: \mte#, \mr, \sr, \rq...\rq*
+	### Titles, Headings, and Labels (elsewhere?)--Markers Supported: \d, \ms#, \s#, \mt#, \r, \sp, \rq..\rq*
+	#### Markers Not Yet Supported: \mte#, \mr, \sr 
 
 	# \ms majorSection
 	if ($line =~ /^\\ms\b\s*(.+)/) {
@@ -511,7 +511,9 @@
 	    $line = "<speaker>$1<\/speaker>";
 	}
 
-
+	# \rq..\rq* inline reference
+	$line =~ s/\\rq( .*?)\\rq\*/<reference>$1<\/reference>/g;
+	
 	### Chapters and Verses--Markers Supported: \c, \v, \vp...\vp*, \cl
 	#### Markers Not Yet Supported: \ca...\ca*, \cp, \cd, \va...\va*