=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
}
# 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) {