adding of \cls (closer)

git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@288 07627401-56e2-0310-80f4-f8cd0041bdcd

1 files changed, 11 insertions, 2 deletions

diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl
index 2332cba..3521a41 100644
--- a/modules/perlconverters/usfm2osis.pl
+++ b/modules/perlconverters/usfm2osis.pl
@@ -592,8 +592,8 @@ foreach $file (@files) {
 	$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 @@ foreach $file (@files) {
 	    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//;