Lines 46-51
my $authid = $query->param('authid') || '';
Link Here
|
46 |
my ( $template, $loggedinuser, $cookie ); |
46 |
my ( $template, $loggedinuser, $cookie ); |
47 |
|
47 |
|
48 |
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypetext'] } ); |
48 |
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypetext'] } ); |
|
|
49 |
my $pending_deletion_authid; |
49 |
|
50 |
|
50 |
if ( $op eq "delete" ) { |
51 |
if ( $op eq "delete" ) { |
51 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
52 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
Lines 64-69
if ( $op eq "delete" ) {
Link Here
|
64 |
}); |
65 |
}); |
65 |
|
66 |
|
66 |
DelAuthority({ authid => $authid }); |
67 |
DelAuthority({ authid => $authid }); |
|
|
68 |
# FIXME No error handling here, DelAuthority needs adjustments |
69 |
$pending_deletion_authid = $authid; |
67 |
|
70 |
|
68 |
if ( $query->param('operator') ) { |
71 |
if ( $query->param('operator') ) { |
69 |
# query contains search params so perform search |
72 |
# query contains search params so perform search |
Lines 238-243
my $servers = Koha::Z3950Servers->search(
Link Here
|
238 |
$template->param( |
241 |
$template->param( |
239 |
servers => $servers, |
242 |
servers => $servers, |
240 |
authority_types => $authority_types, |
243 |
authority_types => $authority_types, |
|
|
244 |
pending_deletion_authid => $pending_deletion_authid, |
241 |
op => $op, |
245 |
op => $op, |
242 |
); |
246 |
); |
243 |
|
247 |
|