# run samples if we've been asked for them
run_samples($c) if ($c->{sample} or $c->{samplemap} or $c->{samplestr});
extract_holdings($c) if ($c->{map});
+print "\n";
#--------------------------
'sample|s',
'samplemap|sm=s',
'samplestr|ss=s',
- 'marcfile|m=s',
- 'map=s',
+ 'marcfile=s',
+ 'map|m=s',
'holdings|h=i',
'copyid|c=s',
'prefix|p=s',
if ($c->{map} and !($c->{holdings} and $c->{copyid}));
show_version() if $c->{version};
+ if ($c->{prefix} and !$c->{marcfile}) {
+ $c->{marcfile} = $c->{prefix} . ".clean.marc.xml";
+ }
+
my @keys = keys %{$c};
for my $key ('prefix', 'marcfile')
{ push @missing, $key unless $c->{$key} }
REQUIRED ARGUMENTS
--prefix -p Prefix string for output filenames
- --marcfile -m MARCXML to use as source data
+ --marcfile MARCXML to use as source data
+ Defaults to 'PREFIX.clean.marc.xml'
SAMPLING ARGUMENTS
--sample -s Generate a report of all tags in the MARC data
If --samplemap and --samplestr are both specified, --samplemap wins.
HOLDINGS EXTRACTION ARGUMENTS
- --map E::M::SM map file which will be used to extract holdings data
+ --map -m E::M::SM map file which will be used to extract holdings data
from the input MARC file
--holdings -h Specifies actual holdings tag
--copyid -c Specifies subfield of holdings with unique copy identifier