X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=COBISS.pm;fp=COBISS.pm;h=3d7a11a187478b4aac59e21170b824d054ba77d0;hb=4e25e9f23acb1ceeaa87591a17432c18cd0f1591;hp=7c50f0d10f2415684c334229ec97378553195db3;hpb=3a55c42d001c2d5b8475f2224415d80bd61d371f;p=Biblio-Z3950.git

diff --git a/COBISS.pm b/COBISS.pm
index 7c50f0d..3d7a11a 100644
--- a/COBISS.pm
+++ b/COBISS.pm
@@ -167,18 +167,21 @@ warn "## comarc join: $comarc\n";
 
 					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 );
+						} else {
+							$ignored->{$f}++;
 						}
-						return;
+						return ''; # fix warning
 					}
 					$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} } );