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

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-10-30 19:13:37 -0700 (Fri, 30 Oct 2009)
New Revision: 228

Modified:
   trunk/modules/perlconverters/unb2osis.pl
Log:
made converter accept lowercase testament identifiers

Modified: trunk/modules/perlconverters/unb2osis.pl
===================================================================
--- trunk/modules/perlconverters/unb2osis.pl	2009-10-31 00:53:27 UTC (rev 227)
+++ trunk/modules/perlconverters/unb2osis.pl	2009-10-31 02:13:37 UTC (rev 228)
@@ -90,13 +90,13 @@
     if ($line =~ /^\#/) {
 	$line = "";
     }
-    elsif ($line =~ /\d+[ONA]\t\d+\t\d+\t(\d+)[ONA]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
+    elsif ($line =~ /\d+[ONAona]\t\d+\t\d+\t(\d+)[ONAona]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
 	$line = sprintf("%08d\t$1\t$2\t$3\t$4$6", $5);
     }
-    elsif ($line =~ /(\d+)[ONA]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
+    elsif ($line =~ /(\d+)[ONAona]\t(\d+)\t(\d+)\t(.*\t)(\d+)\t(.+)/) {
 	$line = sprintf("%08d\t$1\t$2\t$3\t$4$6", $5);
     }
-    elsif ($line =~ /(\d+)[ONA]\t(\d+)\t(\d+)\t(.+)/) {
+    elsif ($line =~ /(\d+)[ONAona]\t(\d+)\t(\d+)\t(.+)/) {
 	$line = sprintf("%08d\t$1\t$2\t$3\t\t$4", $i+10);
     }
     else {