|
Lines 29-50
my $cgi = CGI->new;
Link Here
|
| 29 |
|
29 |
|
| 30 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
30 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 31 |
{ |
31 |
{ |
| 32 |
template_name => "patron_lists/lists.tt", |
32 |
template_name => "patron_lists/lists.tt", |
| 33 |
query => $cgi, |
33 |
query => $cgi, |
| 34 |
type => "intranet", |
34 |
type => "intranet", |
| 35 |
flagsrequired => { tools => 'manage_patron_lists' }, |
35 |
flagsrequired => { tools => 'manage_patron_lists' }, |
| 36 |
} |
36 |
} |
| 37 |
); |
37 |
); |
| 38 |
|
38 |
|
| 39 |
my $id = $cgi->param('patron_list_id'); |
39 |
my $id = $cgi->param('patron_list_id'); |
| 40 |
my @lists_ids = $cgi->multi_param('patron_lists_ids'); |
40 |
my @lists_ids = $cgi->multi_param('patron_lists_ids'); |
| 41 |
|
41 |
|
| 42 |
if (defined $id && $id ne '') { |
42 |
if ( defined $id && $id ne '' ) { |
| 43 |
DelPatronList({ patron_list_id => $id }); |
43 |
DelPatronList( { patron_list_id => $id } ); |
| 44 |
} |
44 |
} |
| 45 |
if (@lists_ids) { |
45 |
if (@lists_ids) { |
| 46 |
foreach my $list_id (@lists_ids) { |
46 |
foreach my $list_id (@lists_ids) { |
| 47 |
DelPatronList({ patron_list_id => $list_id }); |
47 |
DelPatronList( { patron_list_id => $list_id } ); |
| 48 |
} |
48 |
} |
| 49 |
} |
49 |
} |
| 50 |
|
50 |
|
| 51 |
- |
|
|