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

[refdoc at crosswire.org]

Author: refdoc
Date: 2010-07-14 17:48:42 -0700 (Wed, 14 Jul 2010)
New Revision: 288

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
adding of \cls (closer) 


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2010-07-13 09:05:57 UTC (rev 287)
+++ trunk/modules/perlconverters/usfm2osis.pl	2010-07-15 00:48:42 UTC (rev 288)
@@ -592,8 +592,8 @@
 	$line =~ s/\\vp\*\s*//g;
 	$line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*//g;
 
-	### Paragraphs--Markers Supported: \p, \b, \m, \nb
-	#### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \cls, \li#, \pc, \pr, \ph#, \b
+	### Paragraphs--Markers Supported: \p, \b, \m, \nb, \cls
+	#### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \li#, \pc, \pr, \ph#, \b
 
 	# 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;
@@ -627,6 +627,15 @@
 	    openTag("<\/p>");
 	    $line =~ s/\\mi2\b\s*//;
 	}
+	# \cls paragraph (From Chapters and Verses)
+	if ($line =~ /^\\cls\b\s*/) {
+	    if ((($moduleType eq "comment") && ($divOpen))||($moduleType eq "bible")){
+	        push (@outdata, closeTag("<\/closer>"));
+	        }
+	    push (@outdata, "<closer>\n");
+	    openTag("<\/closer>");
+	    $line =~ s/\\cls\b\s*//;
+	}
 
 	# \b
 	$line =~ s/\\b\b//;