Lines 1862-1872
sub TransferOrder {
Link Here
|
1862 |
|
1862 |
|
1863 |
$query = q{ |
1863 |
$query = q{ |
1864 |
UPDATE aqorders |
1864 |
UPDATE aqorders |
1865 |
SET datecancellationprinted = CAST(NOW() AS date) |
1865 |
SET datecancellationprinted = CAST(NOW() AS date), orderstatus = ? |
1866 |
WHERE ordernumber = ? |
1866 |
WHERE ordernumber = ? |
1867 |
}; |
1867 |
}; |
1868 |
$sth = $dbh->prepare($query); |
1868 |
$sth = $dbh->prepare($query); |
1869 |
$rv = $sth->execute($ordernumber); |
1869 |
$rv = $sth->execute('cancelled', $ordernumber); |
1870 |
|
1870 |
|
1871 |
delete $order->{'ordernumber'}; |
1871 |
delete $order->{'ordernumber'}; |
1872 |
delete $order->{parent_ordernumber}; |
1872 |
delete $order->{parent_ordernumber}; |
1873 |
- |
|
|