From bb822592362a1681654bd04bc7ed3112be315b5d Mon Sep 17 00:00:00 2001 From: Ben Ostrowsky Date: Mon, 16 Jan 2012 18:22:59 +0000 Subject: [PATCH] Now handles subfield codes A-Z in addition to a-z (this is strictly speaking not allowed in data, but it exists anyway) --- .../lib/Equinox/Migration/SubfieldMapper.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm index d67d11c..8716b18 100644 --- a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm +++ b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm @@ -245,7 +245,7 @@ sub generate { $map->{tag} = shift @tokens; while (defined (my $tok = shift @tokens)) { last if ($tok =~ m/^#/); - if ($tok =~ m/^[a-z]:'/ and $tok !~ /^'$/) { + if ($tok =~ m/^[a-zA-Z]:'/ and $tok !~ /^'$/) { $tok .= ' ' . shift @tokens until ($tokens[0] =~ m/'$/); $tok .= ' ' . shift @tokens; -- 1.7.2.5