@@ -, +, @@ --- C4/Acquisition.pm | 2 ++ t/db_dependent/Acquisition.t | 5 +++++ 2 files changed, 7 insertions(+) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -1102,6 +1102,8 @@ C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha d sub GetOrder { my ($ordernumber) = @_; + return unless $ordernumber; + my $dbh = C4::Context->dbh; my $query = qq{SELECT aqorders.*, --- a/t/db_dependent/Acquisition.t +++ a/t/db_dependent/Acquisition.t @@ -840,4 +840,9 @@ is( $order3->{'quantityreceived'}, 2, 'Order not split up' ); is( $order3->{'quantity'}, 2, '2 items on order' ); is( $order3->{'budget_id'}, $budgetid2, 'Budget has changed' ); +my $nonexistent_order = GetOrder(); +is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' ); +$nonexistent_order = GetOrder( 424242424242 ); +is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); + $dbh->rollback; --