Lines 58-64
if ( $op eq 'cud-cancel_reserve' and $reserve_id ) {
Link Here
|
58 |
$hold->cancel( { cancellation_reason => $cancellation_reason } ); |
58 |
$hold->cancel( { cancellation_reason => $cancellation_reason } ); |
59 |
push @messages, { type => 'message', code => 'hold_cancelled' }; |
59 |
push @messages, { type => 'message', code => 'hold_cancelled' }; |
60 |
} |
60 |
} |
61 |
} elsif ( $op =~ m|^mark_as_lost| ) { |
61 |
} elsif ( $op =~ m|mark_as_lost| ) { |
62 |
my $hold = Koha::Holds->find($reserve_id); |
62 |
my $hold = Koha::Holds->find($reserve_id); |
63 |
die "wrong reserve_id" unless $hold; # This is a bit rude, but we are not supposed to get a wrong reserve_id |
63 |
die "wrong reserve_id" unless $hold; # This is a bit rude, but we are not supposed to get a wrong reserve_id |
64 |
my $item = $hold->item; |
64 |
my $item = $hold->item; |
65 |
- |
|
|