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

(-)a/C4/Acquisition.pm (+2 lines)
Lines 1102-1107 C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha d Link Here
1102
1102
1103
sub GetOrder {
1103
sub GetOrder {
1104
    my ($ordernumber) = @_;
1104
    my ($ordernumber) = @_;
1105
    return unless $ordernumber;
1106
1105
    my $dbh      = C4::Context->dbh;
1107
    my $dbh      = C4::Context->dbh;
1106
    my $query = qq{SELECT
1108
    my $query = qq{SELECT
1107
                aqorders.*,
1109
                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 => 66;
11
use Test::More tests => 68;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
Lines 840-843 is( $order3->{'quantityreceived'}, 2, 'Order not split up' ); Link Here
840
is( $order3->{'quantity'},         2,          '2 items on order' );
840
is( $order3->{'quantity'},         2,          '2 items on order' );
841
is( $order3->{'budget_id'},        $budgetid2, 'Budget has changed' );
841
is( $order3->{'budget_id'},        $budgetid2, 'Budget has changed' );
842
842
843
my $nonexistent_order = GetOrder();
844
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' );
845
$nonexistent_order = GetOrder( 424242424242 );
846
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
847
843
$dbh->rollback;
848
$dbh->rollback;
844
- 

Return to bug 11550