Fix for Bug 6221, Modifying patron doesn't show "Patron Account Flags" group

[koha.git] / acqui / lateorders.pl

diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl
index 222b233..810f665 100755 (executable)
--- 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;
@@ -60,7 +60,7 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
        query => $input,
         type => "intranet",
        authnotrequired => 0,
-         flagsrequired => {acquisition => 1},
+       flagsrequired => {acquisition => 'order_receive'},
        debug => 1,
 });
 
@@ -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 $_ )            ?