@@ -, +, @@ --- C4/Biblio.pm | 1 + t/db_dependent/Biblio/ModBiblioMarc.t | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -112,6 +112,7 @@ use Koha::SearchEngine; use Koha::SearchEngine::Indexer; use Koha::Libraries; use Koha::Util::MARC; +use Koha::MetadataRecord; =head1 NAME --- a/t/db_dependent/Biblio/ModBiblioMarc.t +++ a/t/db_dependent/Biblio/ModBiblioMarc.t @@ -63,14 +63,16 @@ subtest "StripWhitespaceChars tests" => sub { is( $title, " My\ntitle\n", 'Title has whitespace characters' ); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); - my $savedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); + $biblio = Koha::Biblios->find( $biblio->biblionumber ); + my $savedrec = $biblio->metadata->record; my $savedtitle = $savedrec->title; is( $savedtitle, " My\ntitle\n", "Title still has whitespace characters because StripWhitespaceChars is disabled" ); t::lib::Mocks::mock_preference('StripWhitespaceChars', 1); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); - my $amendedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); + $biblio = Koha::Biblios->find( $biblio->biblionumber ); + my $amendedrec = $biblio->metadata->record; my $amendedtitle = $amendedrec->title; is( $amendedtitle, "My title", "Whitespace characters removed from title because StripWhitespaceChars is enabled" ); }; --