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 |
- |
|
|