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

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-11-07 17:59:06 -0700 (Sat, 07 Nov 2009)
New Revision: 230

Modified:
   trunk/modules/perlconverters/imp2osis.pl
Log:
added some code to revert non-native versification data introduced by imp2mod

Modified: trunk/modules/perlconverters/imp2osis.pl
===================================================================
--- trunk/modules/perlconverters/imp2osis.pl	2009-11-06 08:24:23 UTC (rev 229)
+++ trunk/modules/perlconverters/imp2osis.pl	2009-11-08 00:59:06 UTC (rev 230)
@@ -669,7 +669,19 @@
 
 while (<INF>) {
     $line = $_;
+    
+    #revert old v11n hack
+    while ($line =~ /(.+?)\[ \(([^)]+)\) (.+?) \](.*)/) {
+	push @datab, $1;
+	push @datab, "\$\$\$$2";
+	$line = "$3$4";
+    }
 
+    push @datab, $line;
+}
+
+foreach $line (@datab) {
+
     $line =~ s/\s+$//;
 
     if ($line =~ /^\$\$\$(.+)/) {