edit("Non-numerics in tag");
next;
}
+ # test for existing 901/903 unless we're autocleaning them
+ unless ($conf->{'strip-nines'}) {
+ if ($match == 901 or $match == 903) {
+ edit("Incoming 901/903 found in data");
+ next;
+ }
+ }
}
# subfields can't be non-alphanumeric
next;
}
}
+
$ptr++;
}
write_record($NUMARC);
'original-tag|ot=i',
'renumber-tag|rt=i',
'renumber-subfield|rt=i',
+ 'strip-nines',
'trash|t=s',
'help|h',
);
my @keys = keys %{$c};
show_help() unless (@ARGV and @keys);
- #for my $key ('runtype', 'tag', 'subfield', 'output', 'exception')
- # { push @missing, $key unless $c->{$key} }
- #if (@missing) {
- # print "Required option: ", join(', ', @missing), " missing!\n";
- # show_help();
- #}
}
sub show_help {