test both providers

[Biblio-Z3950.git] / COBISS.pm

diff --git a/COBISS.pm b/COBISS.pm
index 5611007..81b532e 100644 (file)
--- a/COBISS.pm
+++ b/COBISS.pm
@@ -141,6 +141,9 @@ diag "fetch_marc $nr [$id] $format";
 
                my $marc = MARC::Record->new;
 
+               $comarc =~ s/[\r\n]+\s{5}//gs; # join continuation lines
+warn "## comarc join: $comarc\n";
+
                foreach my $line ( split(/[\r\n]+/, $comarc) ) {
 
                        if ( $line !~ s{^(\d\d\d)([01 ])([01 ])}{} ) {
@@ -184,14 +187,7 @@ diag "fetch_marc $nr [$id] $format";
                        }
                }
 
-               my $path = "marc/$id.$format";
-
-               open($out, '>:utf8', $path);
-               print $out $marc->as_usmarc;
-               close($out);
-
-               diag "created $path ", -s $path, " bytes";
-
+               $self->save_marc( $id, $marc->as_usmarc );
                diag $marc->as_formatted;
 
                $nr++;