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