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