X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Finvoices.pl;h=8ab7a3256da642319bace40baf7b188c424742fa;hb=b73bf7374ceed33d217498042c240a35097f37f1;hp=2d117464c9344c53b2a03d45b6b6a70f5dc9e159;hpb=d8cdceb2613bad6e43826233f0c635c0e34d718b;p=koha-ffzg.git

diff --git a/acqui/invoices.pl b/acqui/invoices.pl
index 2d117464c9..8ab7a3256d 100755
--- a/acqui/invoices.pl
+++ b/acqui/invoices.pl
@@ -26,8 +26,7 @@ Search for invoices
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use C4::Auth;
@@ -90,7 +89,7 @@ if ( $op and $op eq 'do_search' ) {
 }
 
 # Build suppliers list
-my @suppliers      = Koha::Acquisition::Booksellers->search;
+my @suppliers      = Koha::Acquisition::Booksellers->search( undef, { order_by => { -asc => 'name' } } );
 my $suppliers_loop = [];
 my $suppliername;
 foreach (@suppliers) {