@@ -, +, @@ --- circ/pendingreserves.pl | 3 ++- .../prog/en/modules/circ/pendingreserves.tt | 18 ++++++++++++++++-- 2 files changed, 18 insertions(+), 3 deletions(-) --- a/circ/pendingreserves.pl +++ a/circ/pendingreserves.pl @@ -56,7 +56,8 @@ my @messages; if ( $op eq 'cancel_reserve' and $reserve_id ) { my $hold = Koha::Holds->find( $reserve_id ); if ( $hold ) { - $hold->cancel; + my $cancellation_reason = $input->param('cancellation-reasion'); + $hold->cancel({ cancellation_reason => $cancellation_reason }); push @messages, { type => 'message', code => 'hold_cancelled' }; } } elsif ( $op =~ m|^mark_as_lost| ) { --- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/pendingreserves.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/pendingreserves.tt @@ -149,10 +149,24 @@
+ + [% SET hold_cancellation = AuthorisedValues.GetAuthValueDropbox('HOLD_CANCELLATION') %] + [% IF hold_cancellation %] +
+ + +
+ [% END %] + [% IF reserveloo.holdingbranch != reserveloo.homebranch %] - + [% ELSE %] - + [% END %]
--