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 |
|
|
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 |
my $i=0; # record nr. |
# read MARC file in memory |
802 |
|
$marc->nextmarc(-1); |
803 |
|
|
804 |
my $rec; |
my $max_rec = $marc->marc_count(); |
805 |
|
|
806 |
while ($marc->nextmarc(1)) { |
for(my $i=1; $i<=$max_rec; $i++) { |
807 |
|
|
808 |
# XXX |
progress($i,$max_rec); |
809 |
fakeprogress($i++); |
|
810 |
|
# store value for marc_sf.pm |
811 |
|
$main::cache->{marc_record} = $i; |
812 |
|
|
813 |
my $swishpath = $database."#".$i; |
my $swishpath = $database."#".$i; |
814 |
|
|
820 |
print "Document-Type: XML\n\n$xml\n"; |
print "Document-Type: XML\n\n$xml\n"; |
821 |
} |
} |
822 |
} |
} |
823 |
|
|
824 |
|
print STDERR "\n"; |
825 |
|
|
826 |
} elsif ($type_base eq "feed") { |
} elsif ($type_base eq "feed") { |
827 |
|
|
828 |
$import2cp = Text::Iconv->new($config->{feed_codepage},$codepage); |
$import2cp = Text::Iconv->new($config->{feed_codepage},$codepage); |