From 97e84f438a61c05750281c55f52734ded4852299 Mon Sep 17 00:00:00 2001 From: Chris Little Date: Sat, 31 Oct 2009 02:13:37 +0000 Subject: made converter accept lowercase testament identifiers git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@228 07627401-56e2-0310-80f4-f8cd0041bdcd --- modules/perlconverters/unb2osis.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'modules/perlconverters') diff --git a/modules/perlconverters/unb2osis.pl b/modules/perlconverters/unb2osis.pl index c77bdb3..d21d4f4 100644 --- a/modules/perlconverters/unb2osis.pl +++ b/modules/perlconverters/unb2osis.pl @@ -90,13 +90,13 @@ foreach $line (@data) { 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 { -- cgit