|
Lines 59-73
if($action and $action eq "confirmcancel") {
Link Here
|
| 59 |
my $reason = $input->param('reason'); |
59 |
my $reason = $input->param('reason'); |
| 60 |
my $error = DelOrder($biblionumber, $ordernumber, $del_biblio, $reason); |
60 |
my $error = DelOrder($biblionumber, $ordernumber, $del_biblio, $reason); |
| 61 |
|
61 |
|
|
|
62 |
# Log the cancellation of the order |
| 63 |
if (C4::Context->preference("AcqLog")) { |
| 64 |
logaction('ACQUISITIONS', 'CANCEL_ORDER', $ordernumber); |
| 65 |
} |
| 66 |
|
| 62 |
if($error) { |
67 |
if($error) { |
| 63 |
$template->param(error_delitem => 1) if $error->{'delitem'}; |
68 |
$template->param(error_delitem => 1) if $error->{'delitem'}; |
| 64 |
$template->param(error_delbiblio => 1) if $error->{'delbiblio'}; |
69 |
$template->param(error_delbiblio => 1) if $error->{'delbiblio'}; |
| 65 |
} else { |
70 |
} else { |
| 66 |
$template->param(success_cancelorder => 1); |
71 |
$template->param(success_cancelorder => 1); |
| 67 |
# Log the cancellation of the order |
|
|
| 68 |
if (C4::Context->preference("AcqLog")) { |
| 69 |
logaction('ACQUISITIONS', 'CANCEL_ORDER', $ordernumber); |
| 70 |
} |
| 71 |
} |
72 |
} |
| 72 |
$template->param(confirmcancel => 1); |
73 |
$template->param(confirmcancel => 1); |
| 73 |
} |
74 |
} |
| 74 |
- |
|
|