321 |
} else { |
} else { |
322 |
$display_data .= $ldel if ($display_data); |
$display_data .= $ldel if ($display_data); |
323 |
my $tmp = mkformat($x,$display); |
my $tmp = mkformat($x,$display); |
324 |
$display_data = $tmp if ($tmp); |
$display_data .= $tmp if ($tmp); |
325 |
} |
} |
326 |
} |
} |
327 |
|
|
592 |
#tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644; |
#tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644; |
593 |
tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644; |
tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644; |
594 |
print STDERR "creating lookup file '$lookup_file'\n"; |
print STDERR "creating lookup file '$lookup_file'\n"; |
595 |
|
# delete memory cache for lookup file |
596 |
|
delete $cache->{lhash}; |
597 |
} |
} |
598 |
|
|
599 |
# open existing lookup file |
# open existing lookup file |
791 |
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!"; |
792 |
|
|
793 |
# optional argument is format |
# optional argument is format |
794 |
my $format = x($config->{format}) || 'usmarc'; |
my $format = x($config->{marc_format}) || 'usmarc'; |
795 |
|
|
796 |
print STDERR "Reading MARC file '$marc_file'\n"; |
print STDERR "Reading MARC file '$marc_file'\n"; |
797 |
|
|
798 |
my $marc = new MARC; |
my $marc = new MARC; |
799 |
my $nr = $marc->openmarc({ |
my $nr = $marc->openmarc({ |
800 |
file=>$marc_file, format=>$format |
file=>$marc_file, format=>$format |
801 |
}) || die "Can't open MARC file '$marc_file'"; |
}) || die "Can't open MARC file '$marc_file' with format '$format'"; |
802 |
|
|
803 |
# read MARC file in memory |
# read MARC file in memory |
804 |
$marc->nextmarc(-1); |
$marc->nextmarc(-1); |