[sword-svn] r258 - trunk/modules/geneve

[refdoc at crosswire.org]

Author: refdoc
Date: 2009-12-19 17:37:47 -0700 (Sat, 19 Dec 2009)
New Revision: 258

Modified:
   trunk/modules/geneve/transform.pl
Log:
clean up


Modified: trunk/modules/geneve/transform.pl
===================================================================
--- trunk/modules/geneve/transform.pl	2009-12-19 23:41:06 UTC (rev 257)
+++ trunk/modules/geneve/transform.pl	2009-12-20 00:37:47 UTC (rev 258)
@@ -7,7 +7,7 @@
 
         my @lines;
 	chop;
-	open USFM, ">>$_.u";
+	open USFM, ">>$_.usfm";
 	chomp(@lines=`cat $_`);
 	
  	@lines[1]="\\id @ident[$_-1] ";
@@ -15,9 +15,9 @@
 	foreach (@lines) {
                 s/<m\ .*?\/m>//;
                 s/props\=\".*?\"//g;
-		s/<p\ style=\"Kapitel\".*?><c.*?>(.*?)<\/c><\/p>/\n\\c\ $1\ \n\\v\ 1\ /g;
+		s/<p\ style=\"Kapitel\".*?><c.*?>(.*?)<\/c><\/p>/\n\\c\ $1\ \n\\v\ 1\ \ /g;
 		s/<p\ style=\"Psalm Nr\".*?><c.*?>Psalm\ (.*?)<\/c><\/p>/\n\\c\ $1\n\\s1\ Psalm\ $1\n/g;
-		s/<c\ style=\"Verszahl\".*?>/\n\\v\ /g;
+		s/<c\ style=\"Verszahl\".*?>(.*?)<\/c>/\n\\v\ $1\ \ /g;
 		s/<p\ style=\"Buchtitel\".*?>/\n\\mt\ /g;
 		s/<p\ style=\"Bucheinleitung\".*?>/\n\\imt\n\\ip\ /g;
 		s/<p\ style=\"Spaltentitel\".*?>(.*?)<\/p>/\n\\s2\ $1\n\\p/g;
@@ -26,6 +26,13 @@
 		s/<\/foot>/\\f\*\ /g;
 		s/type=\"footnote_anchor\"\ style=\"\"\ xid=\".*?\"\ >//g;                
 		s/\\r\ Kapitel/\\mr Kapitel/g;
+		if (!(/\\f.*?\[.*?\\f\*/)) {
+		        s/\[/\ \\add\ /g;
+		        }
+		if (!(/\\f.*?\[.*?\\f\*/)) {	
+		        s/\]/\ \\add\*\ /g;
+		        }
+		s/<p\ style=\"Kopfzeile\".*?p>//;
 		s/xid\=\".*?\"//g;
                 s/<.*?>//g;