print "\n";
}
select STDOUT;
+ print "Saved results as ", ($c->{prefix} . "-HOLDINGS-DETAIL.txt"), " and ",
+ ($c->{prefix} . "-HOLDINGS-SUBCOUNTS.txt"), "\n";
}
sub dump_sample_overview {
print " (", sprintf("%03d", int($tags->{ $tagsbycount[$i] } / $count * 100)), "%)\n";
}
select STDOUT;
- print "\n";
+ print "Saved results as ", ($c->{prefix} . "-HOLDINGS-OVERVIEW.txt"), "\n";
close SAMPLE;
}
print "\nERROR - $msg\n" if $msg;
print <<HELP;
-Usage is: extract_holdings -p PREFIX -m MARCFILE [ARGUMENTS]
+Usage is: extract_holdings --prefix PREFIX --marcfile MARCFILE [ARGUMENTS]
REQUIRED ARGUMENTS
--prefix -p Prefix string for output filenames