|
Lines 1856-1866
sub TransferOrder {
Link Here
|
| 1856 |
|
1856 |
|
| 1857 |
$query = q{ |
1857 |
$query = q{ |
| 1858 |
UPDATE aqorders |
1858 |
UPDATE aqorders |
| 1859 |
SET datecancellationprinted = CAST(NOW() AS date) |
1859 |
SET datecancellationprinted = CAST(NOW() AS date), orderstatus = ? |
| 1860 |
WHERE ordernumber = ? |
1860 |
WHERE ordernumber = ? |
| 1861 |
}; |
1861 |
}; |
| 1862 |
$sth = $dbh->prepare($query); |
1862 |
$sth = $dbh->prepare($query); |
| 1863 |
$rv = $sth->execute($ordernumber); |
1863 |
$rv = $sth->execute('cancelled', $ordernumber); |
| 1864 |
|
1864 |
|
| 1865 |
delete $order->{'ordernumber'}; |
1865 |
delete $order->{'ordernumber'}; |
| 1866 |
delete $order->{parent_ordernumber}; |
1866 |
delete $order->{parent_ordernumber}; |
| 1867 |
- |
|
|