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