Bug 21552: Use raw filter for displaying RoutingListNote

[koha.git] / serials / acqui-search-result.pl

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index 4be4d84..ede6c89 100755 (executable)
--- a/serials/acqui-search-result.pl
+++ b/serials/acqui-search-result.pl
@@ -40,8 +40,7 @@ acqui-search-result.pl
 =cut
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use C4::Auth;
 use C4::Biblio;
 use C4::Output;
@@ -49,7 +48,7 @@ use CGI qw ( -utf8 );
 use C4::Acquisition qw( SearchOrders );
 use Koha::DateUtils;
 
-use Koha::Acquisition::Bookseller;
+use Koha::Acquisition::Booksellers;
 
 my $query=new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -62,14 +61,15 @@ my ($template, $loggedinuser, $cookie)
                  });
 
 my $supplier=$query->param('supplier');
-my @suppliers = Koha::Acquisition::Bookseller->search({ name => $supplier });
-#my $count = scalar @suppliers;
+my @suppliers = Koha::Acquisition::Booksellers->search(
+                    { name     => { -like => "%$supplier%" } },
+                    { order_by => { -asc => 'name' } } );
 
 #build result page
 my $loop_suppliers = [];
 for my $s (@suppliers) {
     my $orders = SearchOrders({
-        booksellerid => $s->{'id'},
+        booksellerid => $s->id,
         pending => 1
     });
 
@@ -85,9 +85,9 @@ for my $s (@suppliers) {
     }
     push @{$loop_suppliers}, {
         loop_basket => $loop_basket,
-        aqbooksellerid => $s->{'id'},
-        name => $s->{'name'},
-        active => $s->{'active'},
+        aqbooksellerid => $s->id,
+        name => $s->name,
+        active => $s->active,
     };
 }