Bug 29697: Use flag embed_items

[srvgit] / basket / sendbasket.pl

diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl
index 3c53605..c5bf982 100755 (executable)
--- a/basket/sendbasket.pl
+++ b/basket/sendbasket.pl
@@ -23,13 +23,13 @@ use Carp qw( carp );
 use Try::Tiny qw( catch try );
 
 use C4::Biblio qw(
-    GetMarcBiblio
     GetMarcSubjects
 );
 use C4::Items qw( GetItemsInfo );
 use C4::Auth qw( get_template_and_user );
 use C4::Output qw( output_and_exit output_html_with_http_headers );
 use C4::Templates;
+use Koha::Biblios;
 use Koha::Email;
 use Koha::Token;
 
@@ -72,9 +72,7 @@ if ( $email_add ) {
 
         my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
         my $dat              = $biblio->unblessed;
-        my $record           = GetMarcBiblio({
-            biblionumber => $biblionumber,
-            embed_items => 1 });
+        my $record           = $biblio->metadata->record({ embed_items => 1 });
         my $marcauthorsarray = $biblio->get_marc_authors;
         my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );