projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3a55c42
)
fix warnings
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 13:52:03 +0000
(15:52 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 13:52:03 +0000
(15:52 +0200)
COBISS.pm
patch
|
blob
|
history
diff --git
a/COBISS.pm
b/COBISS.pm
index
7c50f0d
..
3d7a11a
100644
(file)
--- a/
COBISS.pm
+++ b/
COBISS.pm
@@
-167,18
+167,21
@@
warn "## comarc join: $comarc\n";
my ( $f, $i1, $i2 ) = @f;
my ( $f, $i1, $i2 ) = @f;
- our $out = {};
+ our $out = undef;
+ our $ignored = undef;
sub sf_us {
my ($f,$sf,$v) = @_;
if ( my $m = $cobiss_marc21->{$f}->{$sf} ) {
push @{ $out->{ $m->[0] } }, ( $m->[1], $v );
sub sf_us {
my ($f,$sf,$v) = @_;
if ( my $m = $cobiss_marc21->{$f}->{$sf} ) {
push @{ $out->{ $m->[0] } }, ( $m->[1], $v );
+ } else {
+ $ignored->{$f}++;
}
}
- return
;
+ return
''; # fix warning
}
$line =~ s{<s>(\w)<e>([^<]+)\s*}{sf_us($f,$1, $2)}ges;
}
$line =~ s{<s>(\w)<e>([^<]+)\s*}{sf_us($f,$1, $2)}ges;
- diag "converted marc21 ",dump( $out );
+ diag "converted marc21 ",dump( $out )
if $out
;
foreach my $f ( keys %$out ) {
$marc->add_fields( $f, $i1, $i2, @{ $out->{$f} } );
foreach my $f ( keys %$out ) {
$marc->add_fields( $f, $i1, $i2, @{ $out->{$f} } );