|
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 |
} |