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'"; |
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); |