210 |
|
|
211 |
# placeholder for all repeatable entries for index |
# placeholder for all repeatable entries for index |
212 |
|
|
213 |
|
sub chk_eval($) { |
214 |
|
my $data = shift; |
215 |
|
if ($data =~ s/eval{([^}]+)}//) { |
216 |
|
if (eval "$1") { |
217 |
|
return $data; |
218 |
|
} else { |
219 |
|
return undef; |
220 |
|
} |
221 |
|
} else { |
222 |
|
return $data; |
223 |
|
} |
224 |
|
} |
225 |
|
|
226 |
sub mkformat($$) { |
sub mkformat($$) { |
227 |
my $x = shift || die "mkformat needs tag reference"; |
my $x = shift || die "mkformat needs tag reference"; |
228 |
my $data = shift || return; |
my $data = shift || return; |
229 |
my $format_name = x($x->{format_name}) || return $data; |
my $format_name = x($x->{format_name}) || return chk_eval($data); |
230 |
my $fmt = x($config->{format}->{$format_name}->{content}) || die "<format name=\"$format_name\"> is not defined!"; |
my $fmt = x($config->{format}->{$format_name}->{content}) || die "<format name=\"$format_name\"> is not defined!"; |
231 |
my $format_delimiter = x($x->{format_delimiter}); |
my $format_delimiter = x($x->{format_delimiter}); |
232 |
my @data; |
my @data; |
239 |
if ($fmt) { |
if ($fmt) { |
240 |
my $nr = scalar $fmt =~ s/%s/%s/g; |
my $nr = scalar $fmt =~ s/%s/%s/g; |
241 |
if (($#data+1) == $nr) { |
if (($#data+1) == $nr) { |
242 |
return sprintf($fmt,@data); |
return chk_eval(sprintf($fmt,@data)); |
243 |
} else { |
} else { |
244 |
print STDERR "mkformat: [$data] can't be split on [$format_delimiter] to $nr fields!\n"; |
#print STDERR "mkformat: [$data] can't be split on [$format_delimiter] to $nr fields!\n"; |
245 |
return $data; |
return chk_eval($data); |
246 |
} |
} |
247 |
} else { |
} else { |
248 |
print STDERR "usage of link '$format_name' without defined format (<link> tag)\n"; |
print STDERR "usage of link '$format_name' without defined format (<link> tag)\n"; |
305 |
|
|
306 |
# type="display" ; field for display |
# type="display" ; field for display |
307 |
if ($d && $display) { |
if ($d && $display) { |
308 |
|
my $ldel = $delimiter; |
309 |
if ($line_delimiter && $display_data) { |
if ($line_delimiter && $display_data) { |
310 |
$display_data .= $line_delimiter; |
$ldel = $line_delimiter; |
311 |
} |
} |
312 |
if ($filter) { |
if ($filter) { |
313 |
no strict 'refs'; |
no strict 'refs'; |
314 |
if ($display_data) { |
my @arr; |
315 |
$display_data .= $delimiter.mkformat($x,join($delimiter,&$filter($display))); |
foreach my $tmp (&$filter($display)) { |
316 |
} else { |
my $tmp2 = mkformat($x,$tmp); |
317 |
$display_data = mkformat($x,join($delimiter,&$filter($display))); |
push @arr,$tmp2 if ($tmp2); |
318 |
} |
} |
319 |
|
$display_data .= $ldel if ($display_data && @arr); |
320 |
|
$display_data .= join($delimiter,@arr); |
321 |
} else { |
} else { |
322 |
if ($display_data) { |
$display_data .= $ldel if ($display_data); |
323 |
$display_data .= $delimiter.mkformat($x,$display); |
my $tmp = mkformat($x,$display); |
324 |
} else { |
$display_data .= $tmp if ($tmp); |
|
$display_data = mkformat($x,$display); |
|
|
} |
|
325 |
} |
} |
326 |
} |
} |
327 |
|
|
465 |
for (my $page=0; $page <= $nr_pages; $page++) { |
for (my $page=0; $page <= $nr_pages; $page++) { |
466 |
my $display_data; |
my $display_data; |
467 |
if ($cache->{format}->{$field}) { |
if ($cache->{format}->{$field}) { |
468 |
$display_data=mkformat($cache->{format}->{$field},$cache->{display_data}->{$field}->[$page]); |
my $tmp = mkformat($cache->{format}->{$field},$cache->{display_data}->{$field}->[$page]); |
469 |
|
$display_data=$tmp if ($tmp); |
470 |
} else { |
} else { |
471 |
$display_data = $cache->{display_data}->{$field}->[$page]; |
$display_data = $cache->{display_data}->{$field}->[$page]; |
472 |
} |
} |
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 |
804 |
|
$marc->nextmarc(-1); |
805 |
|
|
806 |
my $i=0; # record nr. |
my $max_rec = $marc->marc_count(); |
807 |
|
|
808 |
my $rec; |
for(my $i=1; $i<=$max_rec; $i++) { |
809 |
|
|
810 |
while ($marc->nextmarc(1)) { |
progress($i,$max_rec); |
811 |
|
|
812 |
# XXX |
# store value for marc_sf.pm |
813 |
fakeprogress($i++); |
$main::cache->{marc_record} = $i; |
814 |
|
|
815 |
my $swishpath = $database."#".$i; |
my $swishpath = $database."#".$i; |
816 |
|
|
822 |
print "Document-Type: XML\n\n$xml\n"; |
print "Document-Type: XML\n\n$xml\n"; |
823 |
} |
} |
824 |
} |
} |
825 |
|
|
826 |
|
print STDERR "\n"; |
827 |
|
|
828 |
} elsif ($type_base eq "feed") { |
} elsif ($type_base eq "feed") { |
829 |
|
|
830 |
$import2cp = Text::Iconv->new($config->{feed_codepage},$codepage); |
$import2cp = Text::Iconv->new($config->{feed_codepage},$codepage); |