}
# subfields can't be non-alphanumeric
- #if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
- #if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
- #edit("Junk in subfield code/Null subfield code");
- #next;
- #}
- #}
+ if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
+ 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");