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

(-)a/C4/Acquisition.pm (-7 / +1 lines)
Lines 1836-1851 sub TransferOrder { Link Here
1836
    $rv = $sth->execute($ordernumber);
1836
    $rv = $sth->execute($ordernumber);
1837
1837
1838
    delete $order->{'ordernumber'};
1838
    delete $order->{'ordernumber'};
1839
    delete $order->{parent_ordernumber};
1839
    $order->{'basketno'} = $basketno;
1840
    $order->{'basketno'} = $basketno;
1840
    my $newordernumber;
1841
    my $newordernumber;
1841
    (undef, $newordernumber) = NewOrder($order);
1842
    (undef, $newordernumber) = NewOrder($order);
1842
1843
1843
    $dbh->do( q{
1844
        UPDATE aqorders
1845
        SET parent_ordernumber = ordernumber
1846
        WHERE ordernumber = ?
1847
    }, {}, $newordernumber );
1848
1849
    $query = q{
1844
    $query = q{
1850
        UPDATE aqorders_items
1845
        UPDATE aqorders_items
1851
        SET ordernumber = ?
1846
        SET ordernumber = ?
1852
- 

Return to bug 11549