Bug 29697: Replace GetMarcBiblio occurrences with $biblio->metadata->record

[srvgit] / catalogue / item-export.pl

diff --git a/catalogue/item-export.pl b/catalogue/item-export.pl
index 10d7b50..52f6b84 100755 (executable)
--- a/catalogue/item-export.pl
+++ b/catalogue/item-export.pl
@@ -21,10 +21,10 @@ use Modern::Perl;
 
 use CGI;
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Output;
 
-my $cgi = new CGI;
+my $cgi = CGI->new;
 
 my ($template, $borrowernumber, $cookie) = get_template_and_user({
     template_name => 'catalogue/itemsearch_csv.tt',
@@ -36,7 +36,7 @@ my ($template, $borrowernumber, $cookie) = get_template_and_user({
 my @itemnumbers = $cgi->multi_param('itemnumber');
 my $format = $cgi->param('format') // 'csv';
 
-my @items = Koha::Items->search({ itemnumber => { -in => \@itemnumbers } });
+my $items = Koha::Items->search({ itemnumber => { -in => \@itemnumbers } });
 
 if ($format eq 'barcodes') {
     print $cgi->header({
@@ -44,14 +44,14 @@ if ($format eq 'barcodes') {
         attachment => 'barcodes.txt',
     });
 
-    foreach my $item (@items) {
+    while ( my $item = $items->next ) {
         print $item->barcode . "\n";
     }
     exit;
 }
 
 $template->param(
-    results => \@items,
+    results => $items,
 );
 
 print $cgi->header({