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

(-)a/C4/Acquisition.pm (-7 / +1 lines)
Lines 1814-1829 sub TransferOrder { Link Here
1814
    $rv = $sth->execute($ordernumber);
1814
    $rv = $sth->execute($ordernumber);
1815
1815
1816
    delete $order->{'ordernumber'};
1816
    delete $order->{'ordernumber'};
1817
    delete $order->{parent_ordernumber};
1817
    $order->{'basketno'} = $basketno;
1818
    $order->{'basketno'} = $basketno;
1818
    my $newordernumber;
1819
    my $newordernumber;
1819
    (undef, $newordernumber) = NewOrder($order);
1820
    (undef, $newordernumber) = NewOrder($order);
1820
1821
1821
    $dbh->do( q{
1822
        UPDATE aqorders
1823
        SET parent_ordernumber = ordernumber
1824
        WHERE ordernumber = ?
1825
    }, {}, $newordernumber );
1826
1827
    $query = q{
1822
    $query = q{
1828
        UPDATE aqorders_items
1823
        UPDATE aqorders_items
1829
        SET ordernumber = ?
1824
        SET ordernumber = ?
1830
- 

Return to bug 11549