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 => 64;
11
use Test::More tests => 66;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
Lines 822-825 is( $order3->{'quantityreceived'}, 2, 'Order not split up' ); Link Here
822
is( $order3->{'quantity'},         2,          '2 items on order' );
822
is( $order3->{'quantity'},         2,          '2 items on order' );
823
is( $order3->{'budget_id'},        $budgetid2, 'Budget has changed' );
823
is( $order3->{'budget_id'},        $budgetid2, 'Budget has changed' );
824
824
825
my $nonexistent_order = GetOrder();
826
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' );
827
$nonexistent_order = GetOrder( 424242424242 );
828
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
829
825
$dbh->rollback;
830
$dbh->rollback;
826
- 

Return to bug 11550