From ad449dd69eda5bb955622fd878162e1805698dd4 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 22 Mar 2013 03:35:41 -0700 Subject: [PATCH] Bug 8037 - Add holds and funds to items already received in parcel.pl - QA Followup Signed-off-by: Jonathan Druart --- C4/Reserves.pm | 3 +-- t/db_dependent/Budgets.t | 4 ++++ 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index f821d04..8f4e596 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -257,7 +257,6 @@ sub GetReservesFromBiblionumber { my ($biblionumber) = shift or return (0, []); my ($all_dates) = shift; my ($itemnumber) = shift; - warn "ITEMNUMBER: $itemnumber"; my $dbh = C4::Context->dbh; # Find the desired items in the reserves @@ -281,7 +280,7 @@ sub GetReservesFromBiblionumber { WHERE biblionumber = ? "; push( @params, $biblionumber ); unless ( $all_dates ) { - $query .= " AND reservedate <= CURRENT_DATE() "; + $query .= " AND reservedate <= CAST(NOW() AS DATE) "; } if ( $itemnumber ) { $query .= " AND ( itemnumber IS NULL OR itemnumber = ? )"; diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t index 717f8fe..eb52f6f 100755 --- a/t/db_dependent/Budgets.t +++ b/t/db_dependent/Budgets.t @@ -85,6 +85,10 @@ ok($budget_id=AddBudget( #| budget_owner_id | int(11) | YES | | NULL | | #| budget_permission | int(1) | YES | | 0 | | +C4::Context::dbh->do('INSERT INTO aqorders ( ordernumber, budget_id ) VALUES ( 987654321, ? )', {}, ( $budget_id ) ); +ok( GetBudgetByOrderNumber( '987654321' )->{'budget_id'} eq $budget_id, "GetBudgetByOrderNumber returns valid data" ); +C4::Context::dbh->do('DELETE FROM aqorders WHERE ordernumber = 987654321'); + my $budget; ok($budget=GetBudget($budget_id) ,"GetBudget OK"); $$budget{budget_permission}=1; -- 1.7.10.4