|
Lines 40-57
my $withdrawn = $cgi->param('withdrawn');
Link Here
|
| 40 |
my $damaged = $cgi->param('damaged'); |
40 |
my $damaged = $cgi->param('damaged'); |
| 41 |
my $exclude_from_local_holds_priority = $cgi->param('exclude_from_local_holds_priority'); |
41 |
my $exclude_from_local_holds_priority = $cgi->param('exclude_from_local_holds_priority'); |
| 42 |
my $bookable = $cgi->param('bookable') // q{}; |
42 |
my $bookable = $cgi->param('bookable') // q{}; |
| 43 |
my $cancelhold = $cgi->param('cancelhold'); |
|
|
| 44 |
my $reverthold = $cgi->param('reverthold'); |
| 45 |
my $redirecturl = $cgi->param('redirecturl'); |
43 |
my $redirecturl = $cgi->param('redirecturl'); |
| 46 |
|
44 |
|
| 47 |
if ( defined $cancelhold ) { |
45 |
if ( $op eq "cud-cancelhold" ) { |
| 48 |
LostItem( $itemnumber, 'moredetail', 0, { cancel_reserve => $cancelhold } ); |
46 |
LostItem( $itemnumber, 'moredetail', 0, { cancel_reserve => 1 } ); |
| 49 |
} elsif ( defined $reverthold ) { |
47 |
} elsif ( $op eq "cud-reverthold" ) { |
| 50 |
$cancelhold = 0; |
48 |
LostItem( $itemnumber, 'moredetail', 0, { cancel_reserve => undef } ); |
| 51 |
LostItem( $itemnumber, 'moredetail', 0, { cancel_reserve => $cancelhold } ); |
|
|
| 52 |
} else { |
| 53 |
$cancelhold = undef; |
| 54 |
} |
49 |
} |
|
|
50 |
|
| 55 |
if ( defined $redirecturl ) { |
51 |
if ( defined $redirecturl ) { |
| 56 |
print $cgi->redirect( $redirecturl . $biblionumber ); |
52 |
print $cgi->redirect( $redirecturl . $biblionumber ); |
| 57 |
} |
53 |
} |