@@ -, +, @@ --- C4/Biblio.pm | 2 +- t/db_dependent/Biblio.t | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -299,7 +299,7 @@ sub AddBiblio { }); } catch { warn $_; - return (undef, undef); + ( $biblionumber, $biblioitemnumber ) = ( undef, undef ); }; return ( $biblionumber, $biblioitemnumber ); } --- a/t/db_dependent/Biblio.t +++ a/t/db_dependent/Biblio.t @@ -49,7 +49,6 @@ subtest 'AddBiblio' => sub { t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); my $record = MARC::Record->new(); - warn Koha::Biblios->count; my ( $f, $sf ) = GetMarcFromKohaField('biblioitems.lccn'); my $lccn_field = MARC::Field->new( $f, ' ', ' ', $sf => 'ThisisgoingtobetoomanycharactersfortheLCCNfield' ); @@ -63,7 +62,7 @@ subtest 'AddBiblio' => sub { is( $biblioitemnumber, undef, 'AddBiblio returns undef for biblioitemnumber if something went wrong' ); - is( $nb_biblios, Koha::Biblios->count, + is( Koha::Biblios->count, $nb_biblios, 'No biblio should have been added if something went wrong' ); }; --