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