Bug 16371: Quote of the Day (QOTD) - Display in different interfaces
[koha-ffzg.git] / acqui / lateorders.pl
index ff3ce70..565d6b5 100755 (executable)
@@ -45,7 +45,6 @@ To know on which branch this script have to display late order.
 
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Bookseller qw( GetBooksellersWithLateOrders );
 use C4::Auth;
 use C4::Koha;
 use C4::Output;
@@ -124,15 +123,6 @@ if ($op and $op eq "send_alert"){
     }
 }
 
-my @parameters = ( $delay );
-push @parameters, $estimateddeliverydatefrom_dt
-    ? $estimateddeliverydatefrom_dt->ymd()
-    : undef;
-
-push @parameters, $estimateddeliverydateto_dt
-    ? $estimateddeliverydateto_dt->ymd()
-    : undef;
-
 my @lateorders = Koha::Acquisition::Orders->filter_by_lates(
     {
         delay        => $delay,
@@ -152,7 +142,7 @@ my @lateorders = Koha::Acquisition::Orders->filter_by_lates(
 my $booksellers = Koha::Acquisition::Booksellers->search(
     {
         id => {
-            -in => map { $_->basket->booksellerid } @lateorders
+            -in => [ map { $_->basket->booksellerid } @lateorders ]
         },
     }
 );