my $dbh = C4::Context->dbh;
my ($query, $sth, $rv);
$query = qq{
$query = q{
UPDATE aqorders
SET datecancellationprinted = CAST(NOW() AS date)
WHERE ordernumber = ?
}, {}, $newordernumber );
UPDATE aqorders_items
SET ordernumber = ?
-