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