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

[chrislit at crosswire.org]

Author: chrislit
Date: 2012-02-25 07:59:16 -0700 (Sat, 25 Feb 2012)
New Revision: 350

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
changed handling of \vp to generate <seg type="verseNumber"> rather than deleting

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2012-02-13 12:04:06 UTC (rev 349)
+++ trunk/modules/perlconverters/usfm2osis.pl	2012-02-25 14:59:16 UTC (rev 350)
@@ -612,9 +612,9 @@
             }
 	}
 
-        # \vp...\vp# published verse numbers (just delete for now)
+        # \vp...\vp# published verse numbers
 	$line =~ s/\\vp\*\s*//g;
-	$line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*//g;
+	$line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*/<seg type="verseNumber">$1<\/seg>/g;
 
 	### Paragraphs--Markers Supported: \p, \b, \m, \nb, \cls
 	#### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \li#, \pc, \pr, \ph#, \b