initialize($conf);
# read in trash tags file if it exists
-populate_trash() if (-e '.trashtags');
+populate_trash() if ($conf->{trash});
my @record = (); # current record storage
my %recmeta = (); # metadata about current record
# automatable subfield maladies
$line =~ s/code=" ">c/code="c">/;
+ $line =~ s/code=" ">\$/code="c"$>/;
# and stow line back in record
$record[-1] = $line;
}
# subfields can't be non-alphanumeric
- if ($line =~ /<subfield code="(.+?)"/) {
+ if ($line =~ /<subfield code="(.*?)"/) {
my $match = $1;
- if ($match =~ /\P{IsAlnum}/) {
- edit("Junk in subfield code", $line);
+ if ($match =~ /\P{IsAlnum}/ or $match eq '') {
+ edit("Junk in subfield code/Null subfield code", $line);
next;
}
}
# specifying a tag twice is an error, to help prevent typos
sub populate_trash {
- print $OUT ">>> TRASHTAGS FILE FOUND. LOADING TAGS TO BE STRIPPED FROM OUTPUT...\n";
- open TRASH, '<', '.trashtags';
+ print $OUT ">>> TRASHTAGS FILE FOUND. LOADING TAGS TO BE STRIPPED FROM OUTPUT\n";
+ open TRASH, '<', $conf->{trash}
+ or die "Can't open trash tags file!\n";
while (<TRASH>) {
my $lastwasrange = 0;
my %lastrange = ( high => 0, low => 0);
'original-tag|ot=i',
'renumber-tag|rt=i',
'renumber-subfield|rt=i',
+ 'trash|t=s',
'help|h',
);
show_help() unless $rc;