From c054571c4f391569aa639f35302df4e79f619b04 Mon Sep 17 00:00:00 2001 From: Peter von Kaehne Date: Thu, 15 Jul 2010 00:48:42 +0000 Subject: adding of \cls (closer) git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@288 07627401-56e2-0310-80f4-f8cd0041bdcd --- modules/perlconverters/usfm2osis.pl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'modules/perlconverters') 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 for linebreaks in the usfm files--may be commented out (not USFM 2.1) $line =~ s/\\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, "\n"); + openTag("<\/closer>"); + $line =~ s/\\cls\b\s*//; + } # \b $line =~ s/\\b\b//; -- cgit