X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Flateorders.pl;h=810f665b87959aaf07ac4bbfc8e93d9f7ef47471;hb=a2ad157eba6ee106e98ec41e7b6fadc566840c65;hp=e948d2fafa7e1be7bc7c48ced6bd6f97e4c342bb;hpb=4747ea7462c04770484386538b1594c1760bc75b;p=koha.git

diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl
index e948d2fafa..810f665b87 100755
--- a/acqui/lateorders.pl
+++ b/acqui/lateorders.pl
@@ -45,7 +45,7 @@ To know on which branch this script have to display late order.
 use strict;
 use warnings;
 use CGI;
-use C4::Bookseller;
+use C4::Bookseller qw( GetBooksellersWithLateOrders );
 use C4::Auth;
 use C4::Koha;
 use C4::Output;
@@ -76,7 +76,7 @@ unless ($delay =~ /^\d{1,3}$/) {
 	$delay = 30;	#default value for delay
 }
 
-my %supplierlist = GetBooksellersWithLateOrders($delay,$branch);
+my %supplierlist = GetBooksellersWithLateOrders($delay);
 my (@sloopy);	# supplier loop
 foreach (keys %supplierlist){
 	push @sloopy, (($supplierid and $supplierid eq $_ )            ?