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

(-)a/C4/Acquisition.pm (-2 / +10 lines)
Lines 1687-1692 sub SearchOrders { Link Here
1687
            LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
1687
            LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber
1688
            LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1688
            LEFT JOIN biblio ON aqorders.biblionumber=biblio.biblionumber
1689
            LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
1689
            LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
1690
    };
1691
1692
    # If we search on ordernumber, we retrieve the transfered order is a transfer has been done.
1693
    $query .= q{
1694
            LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber
1695
    } if $ordernumber;
1696
1697
    $query .= q{
1690
        WHERE (datecancellationprinted is NULL)
1698
        WHERE (datecancellationprinted is NULL)
1691
    };
1699
    };
1692
1700
Lines 1708-1715 sub SearchOrders { Link Here
1708
    }
1716
    }
1709
1717
1710
    if ( $ordernumber ) {
1718
    if ( $ordernumber ) {
1711
        $query .= ' AND (aqorders.ordernumber=?)';
1719
        $query .= ' AND ( aqorders.ordernumber = ? OR aqorders_transfers.ordernumber_from = ? ) ';
1712
        push @args, $ordernumber;
1720
        push @args, ( $ordernumber, $ordernumber );
1713
    }
1721
    }
1714
    if( $search ) {
1722
    if( $search ) {
1715
        $query .= ' AND (biblio.title LIKE ? OR biblio.author LIKE ? OR biblioitems.isbn LIKE ?)';
1723
        $query .= ' AND (biblio.title LIKE ? OR biblio.author LIKE ? OR biblioitems.isbn LIKE ?)';
(-)a/t/db_dependent/Acquisition/TransferOrder.t (-2 / +8 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 8;
5
use Test::More tests => 11;
6
use C4::Context;
6
use C4::Context;
7
use C4::Acquisition;
7
use C4::Acquisition;
8
use C4::Biblio;
8
use C4::Biblio;
Lines 78-83 is(scalar GetOrders($basketno2), 1, "1 order in basket2"); Link Here
78
($order) = GetOrders($basketno2);
78
($order) = GetOrders($basketno2);
79
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order");
79
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order");
80
80
81
# Bug 11552
82
my $orders = SearchOrders({ ordernumber => $newordernumber });
83
is ( scalar( @$orders ), 1, 'SearchOrders returns 1 order with newordernumber' );
84
$orders = SearchOrders({ ordernumber => $ordernumber });
85
is ( scalar( @$orders ), 1, 'SearchOrders returns 1 order with [old]ordernumber' );
86
is ( $orders->[0]->{ordernumber}, $newordernumber, 'SearchOrders returns newordernumber if [old]ordernumber is given' );
87
81
ModReceiveOrder( $biblionumber, $newordernumber, 2, undef, undef, undef, undef, undef, undef, dt_from_string );
88
ModReceiveOrder( $biblionumber, $newordernumber, 2, undef, undef, undef, undef, undef, undef, dt_from_string );
82
CancelReceipt( $newordernumber );
89
CancelReceipt( $newordernumber );
83
$order = GetOrder( $newordernumber );
90
$order = GetOrder( $newordernumber );
84
- 

Return to bug 11552