From 73e0795df1cc18cc284bdd328d1b810d063e1add Mon Sep 17 00:00:00 2001
From: Chris Little <chrislit@crosswire.org>
Date: Fri, 5 Nov 2010 22:51:21 +0000
Subject: move <verse eID=""/> upward, above lines that start with title, div,
 and p elements

git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@312 07627401-56e2-0310-80f4-f8cd0041bdcd
---
 modules/perlconverters/usfm2osis.pl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'modules')

diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl
index e08bc42..70fb716 100644
--- a/modules/perlconverters/usfm2osis.pl
+++ b/modules/perlconverters/usfm2osis.pl
@@ -961,7 +961,7 @@ open (INF, "<:utf8", "$outputFilename");
 close (INF);
 open (OUTF, ">:utf8", "$outputFilename");
 
-#bubble chapter down
+# bubble chapter down
 for ($i = 0; $i < scalar(@filedata); $i++) {
     if (@filedata[$i] =~ /^<\// && @filedata[$i-1] =~ /^<chapter.+\/>/) {
 	$temp = @filedata[$i];
@@ -970,6 +970,18 @@ for ($i = 0; $i < scalar(@filedata); $i++) {
 	$i -= 2;
     }
 }
+
+# bubble verse end up
+# CCL--this may require further attention, but works for the present
+for ($i = 0; $i < scalar(@filedata); $i++) {
+    if (@filedata[$i-1] =~ /^(<title|<\/?div|<\/?p)/ && @filedata[$i] =~ /^<verse eID.+\/>/) {
+	$temp = @filedata[$i];
+	@filedata[$i] = @filedata[$i-1];
+	@filedata[$i-1] = $temp;
+	$i -= 2;
+    }
+}
+
 for ($i = 0; $i < scalar(@filedata); $i++) {
     $fullfile .= @filedata[$i];
 }
-- 
cgit