@@ -, +, @@ list --- C4/Bookseller.pm | 2 +- t/db_dependent/Bookseller.t | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) --- a/C4/Bookseller.pm +++ a/C4/Bookseller.pm @@ -73,7 +73,7 @@ sub GetBooksellersWithLateOrders { AND aqbasket.closedate IS NOT NULL "; if ( defined $delay && $delay >= 0 ) { - $query .= " AND (closedate <= DATE_SUB(CAST(now() AS date),INTERVAL ? + COALESCE(aqbooksellers.deliverytime,0) DAY)) "; + $query .= " AND (closedate <= DATE_SUB(CAST(now() AS date),INTERVAL ? DAY)) " ; push @query_params, $delay; } elsif ( $delay && $delay < 0 ){ warn 'WARNING: GetBooksellerWithLateOrders is called with a negative value'; --- a/t/db_dependent/Bookseller.t +++ a/t/db_dependent/Bookseller.t @@ -443,16 +443,16 @@ isnt( exists( $suppliers{$id_supplier4} ), 1, "Supplier4 hasnt late orders" ) #Case 2: With $delay = 4 # today + 0 > now-$delay -NOT LATE- -# (today-5) + 2 <= now() - $delay -NOT LATE- -# (today-10) + 3 <= now() - $delay -LATE- +# (today-5) <= now() - $delay -NOT LATE- +# (today-10) <= now() - $delay -LATE- # quantityreceived = quantity -NOT LATE- %suppliers = C4::Bookseller::GetBooksellersWithLateOrders( 4, undef, undef ); isnt( exists( $suppliers{$id_supplier1} ), 1, "Supplier1 has late orders but today > now() - 4 days" ); isnt( exists( $suppliers{$id_supplier2} ), - 1, "Supplier2 has late orders and $daysago5 <= now() - (4 days+2)" ); + 1, "Supplier2 has late orders and $daysago5 <= now() - (4 days)" ); ok( exists( $suppliers{$id_supplier3} ), - "Supplier3 has late orders and $daysago10 <= now() - (4 days+3)" ); + "Supplier3 has late orders and $daysago10 <= now() - (4 days)" ); isnt( exists( $suppliers{$id_supplier4} ), 1, "Supplier4 hasnt late orders" ); #Case 3: With $delay = -1 --