112 |
ok($rec = $isis->fetch($mfn), "fetch $mfn"); |
ok($rec = $isis->fetch($mfn), "fetch $mfn"); |
113 |
|
|
114 |
|
|
115 |
diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ); |
diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ) if ($debug); |
116 |
|
|
117 |
foreach my $f (keys %{$data->[$mfn-1]}) { |
foreach my $f (keys %{$data->[$mfn-1]}) { |
118 |
my $i = 0; |
my $i = 0; |
146 |
debug => $debug, |
debug => $debug, |
147 |
); |
); |
148 |
|
|
149 |
diag "isis-new result: ", Dumper($isis); |
diag "new Biblio::Isis = ", Dumper($isis) if ($debug); |
150 |
|
|
151 |
test_data( |
test_data( |
152 |
no_ident => 1, |
no_ident => 1, |