Lines 47-53
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
47 |
query => $input, |
47 |
query => $input, |
48 |
type => "intranet", |
48 |
type => "intranet", |
49 |
flagsrequired => { circulate => "circulate_remaining_permissions" }, |
49 |
flagsrequired => { circulate => "circulate_remaining_permissions" }, |
50 |
} |
50 |
} |
51 |
); |
51 |
); |
52 |
|
52 |
|
53 |
my @messages; |
53 |
my @messages; |
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 eq 'cud-mark_as_lost' or $op eq 'cud-mark_as_lost_and_notify' ) { |
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 |
- |
|
|