789 |
my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!"; |
my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!"; |
790 |
|
|
791 |
# optional argument is format |
# optional argument is format |
792 |
my $format = x($config->{format}) || 'usmarc'; |
my $format = x($config->{marc_format}) || 'usmarc'; |
793 |
|
|
794 |
print STDERR "Reading MARC file '$marc_file'\n"; |
print STDERR "Reading MARC file '$marc_file'\n"; |
795 |
|
|
796 |
my $marc = new MARC; |
my $marc = new MARC; |
797 |
my $nr = $marc->openmarc({ |
my $nr = $marc->openmarc({ |
798 |
file=>$marc_file, format=>$format |
file=>$marc_file, format=>$format |
799 |
}) || die "Can't open MARC file '$marc_file'"; |
}) || die "Can't open MARC file '$marc_file' with format '$format'"; |
800 |
|
|
801 |
# read MARC file in memory |
# read MARC file in memory |
802 |
$marc->nextmarc(-1); |
$marc->nextmarc(-1); |