@@ -, +, @@ --- C4/Reserves.pm | 3 +-- t/db_dependent/Budgets.t | 4 ++++ 2 files changed, 5 insertions(+), 2 deletions(-) --- a/C4/Reserves.pm +++ a/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 = ? )"; --- a/t/db_dependent/Budgets.t +++ a/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; --