# subfields can't be non-alphanumeric
if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
- my $match = $1;
- if ($match =~ /\P{IsAlnum}/ or $match eq '') {
+ if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
edit("Junk in subfield code/Null subfield code");
next;
}
}
+ # subfields can't be non-alphanumeric
+ if ($record[$ptr] =~ /<subfield code="(\w{2,})"/) {
+ edit("Subfield code larger than 1 char");
+ next;
+ }
$ptr++;
}