From 8f26c8082419023bfa16465b320fb65c72767ac8 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 9 Jul 2013 12:02:00 +0200 Subject: [PATCH] Bug 10557: GetBooksellersWithLateOrders has an unused branch parameter C4::Booksellers::GetBooksellersWithLateOrders has an unused parameter. The $branch variable is never used in the routine. Test plan: Check that no behavior changes on the late orders page. --- C4/Bookseller.pm | 4 ++-- acqui/lateorders.pl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm index c8389a3..e12757c 100644 --- a/C4/Bookseller.pm +++ b/C4/Bookseller.pm @@ -98,14 +98,14 @@ sub GetBookSellerFromId { =head2 GetBooksellersWithLateOrders -%results = GetBooksellersWithLateOrders($delay); +%results = GetBooksellersWithLateOrders( $delay, $estimateddeliverydatefrom, $estimateddeliverydateto ); Searches for suppliers with late orders. =cut sub GetBooksellersWithLateOrders { - my ( $delay, $branch, $estimateddeliverydatefrom, $estimateddeliverydateto ) = @_; # FIXME: Branch argument unused. + my ( $delay, $estimateddeliverydatefrom, $estimateddeliverydateto ) = @_; my $dbh = C4::Context->dbh; # FIXME NOT quite sure that this operation is valid for DBMs different from Mysql, HOPING so diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl index 7c2b3f3..d732357 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -118,7 +118,7 @@ if ($op and $op eq "send_alert"){ } } -my @parameters = ( $delay, $branch ); +my @parameters = ( $delay ); push @parameters, $estimateddeliverydatefrom_dt ? $estimateddeliverydatefrom_dt->ymd() : undef; -- 1.7.10.4