ok($rec = $isis->fetch($mfn), "fetch $mfn");
- diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] );
+ diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ) if ($debug);
foreach my $f (keys %{$data->[$mfn-1]}) {
my $i = 0;
debug => $debug,
);
-diag "isis-new result: ", Dumper($isis);
+diag "new Biblio::Isis = ", Dumper($isis) if ($debug);
test_data(
no_ident => 1,