diff options
| author | Chris Little <chrislit@crosswire.org> | 2009-10-31 02:13:37 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2009-10-31 02:13:37 +0000 |
| commit | 97e84f438a61c05750281c55f52734ded4852299 (patch) | |
| tree | c9cd2b95491272736a0ee47272878eaa84da8030 /modules/perlconverters | |
| parent | 9a17277e123ffe7c84afcd6b76443d5f421805d4 (diff) | |
| download | sword-tools-97e84f438a61c05750281c55f52734ded4852299.tar.gz | |
made converter accept lowercase testament identifiers
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@228 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters')
| -rw-r--r-- | modules/perlconverters/unb2osis.pl | 6 |
1 files changed, 3 insertions, 3 deletions
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 {
|