Lines 1768-1786
sub DelOrder {
Link Here
|
1768 |
SET datecancellationprinted=now(), orderstatus='cancelled' |
1768 |
SET datecancellationprinted=now(), orderstatus='cancelled' |
1769 |
"; |
1769 |
"; |
1770 |
if($reason) { |
1770 |
if($reason) { |
1771 |
$query .= " |
1771 |
$query .= ", cancellationreason = ? "; |
1772 |
, notes = IF(notes IS NULL, |
|
|
1773 |
CONCAT('Cancellation reason: ', ?), |
1774 |
CONCAT(notes, ' - Cancellation reason: ', ?) |
1775 |
) |
1776 |
"; |
1777 |
} |
1772 |
} |
1778 |
$query .= " |
1773 |
$query .= " |
1779 |
WHERE biblionumber=? AND ordernumber=? |
1774 |
WHERE biblionumber=? AND ordernumber=? |
1780 |
"; |
1775 |
"; |
1781 |
my $sth = $dbh->prepare($query); |
1776 |
my $sth = $dbh->prepare($query); |
1782 |
if($reason) { |
1777 |
if($reason) { |
1783 |
$sth->execute($reason, $reason, $bibnum, $ordernumber); |
1778 |
$sth->execute($reason, $bibnum, $ordernumber); |
1784 |
} else { |
1779 |
} else { |
1785 |
$sth->execute( $bibnum, $ordernumber ); |
1780 |
$sth->execute( $bibnum, $ordernumber ); |
1786 |
} |
1781 |
} |