Bug 19256: Make Koha::Acq::Order using Koha::Object

[koha.git] / catalogue / export.pl

diff --git a/catalogue/export.pl b/catalogue/export.pl
index f82250d..c10686c 100755 (executable)
--- a/catalogue/export.pl
+++ b/catalogue/export.pl
@@ -28,7 +28,9 @@ if ($op eq "export") {
     my $biblionumber = $query->param("bib");
         if ($biblionumber){
 
-            my $marc = GetMarcBiblio($biblionumber, 1);
+            my $marc = GetMarcBiblio({
+                biblionumber => $biblionumber,
+                embed_items  => 1 });
 
             if ($format =~ /endnote/) {
                 $marc = marc2endnote($marc);