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

[chrislit at crosswire.org]

Author: chrislit
Date: 2012-02-25 16:30:56 -0700 (Sat, 25 Feb 2012)
New Revision: 351

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
made \b generate a linebreak element <lb/>
removed notes that \b and \m are unsupported
commented out a line of special-purpose non-USFM code


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2012-02-25 14:59:16 UTC (rev 350)
+++ trunk/modules/perlconverters/usfm2osis.pl	2012-02-25 23:30:56 UTC (rev 351)
@@ -617,10 +617,10 @@
 	$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
+	#### Markers Not Yet Supported: \pmo, \pm, \pmc, \pmr, \pi#, \mi, \li#, \pc, \pr, \ph#
 
 	# Hack to solve an issue in a module that used <R> for linebreaks in the usfm files--may be commented out (not USFM 2.1)
-	$line =~ s/\\lb\*/<lb \/>/g;
+	# $line =~ s/\\lb\*/<lb \/>/g;
 
 	# \p paragraph (From Chapters and Verses)
 	if ($line =~ /^\\p\b\s*/) {
@@ -662,14 +662,14 @@
 	}
 
 	# \b
-	$line =~ s/\\b\b//;
+	$line =~ s/\\b\b/<lb\/>/;
 	# \m
 	$line =~ s/\\m\b//;
 	# \nb
 	$line =~ s/\\nb\b//;
 
 	### Poetry--Markers Supported: \q#, \qs...\qs*, \qr, \qc, \qac...\qac*, \qa, \qm#
-	#### Markers Not Yet Supported: \b
+	#### Markers Not Yet Supported: [none]
 
 	# \qt...\qt*, OT quotation (handle early)
 	$line =~ s/\\qt\b\s*(.*?)\\qt\*/<seg type="otPassage">$1<\/seg>/g;