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