View | Details | Raw Unified | Return to bug 11550
Collapse All | Expand All

(-)a/C4/Acquisition.pm (+2 lines)
Lines 1101-1106 C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha d Link Here
1101
1101
1102
sub GetOrder {
1102
sub GetOrder {
1103
    my ($ordernumber) = @_;
1103
    my ($ordernumber) = @_;
1104
    return unless $ordernumber;
1105
1104
    my $dbh      = C4::Context->dbh;
1106
    my $dbh      = C4::Context->dbh;
1105
    my $query = qq{SELECT
1107
    my $query = qq{SELECT
1106
                aqorders.*,
1108
                aqorders.*,
(-)a/t/db_dependent/Acquisition.t (-2 / +6 lines)
Lines 8-14 use POSIX qw(strftime); Link Here
8
8
9
use C4::Bookseller qw( GetBookSellerFromId );
9
use C4::Bookseller qw( GetBookSellerFromId );
10
10
11
use Test::More tests => 63;
11
use Test::More tests => 65;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
Lines 224-227 is($order3->{'quantityreceived'}, 2, 'Order not split up'); Link Here
224
is($order3->{'quantity'}, 2, '2 items on order');
224
is($order3->{'quantity'}, 2, '2 items on order');
225
is($order3->{'budget_id'}, $budgetid2, 'Budget has changed');
225
is($order3->{'budget_id'}, $budgetid2, 'Budget has changed');
226
226
227
my $nonexistent_order = GetOrder();
228
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' );
229
$nonexistent_order = GetOrder( 424242424242 );
230
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
231
227
$dbh->rollback;
232
$dbh->rollback;
228
- 

Return to bug 11550