|
Lines 206-213
if ( $op eq "export" ) {
Link Here
|
| 206 |
my $authtype = $query->param('authtype'); |
206 |
my $authtype = $query->param('authtype'); |
| 207 |
my $filefh; |
207 |
my $filefh; |
| 208 |
if ($commandline) { |
208 |
if ($commandline) { |
| 209 |
open $filefh,"<", $id_list_file or die "cannot open $id_list_file: $!" if $id_list_file; |
209 |
if ($id_list_file) { |
| 210 |
} else { |
210 |
open $filefh, "<", $id_list_file or die "cannot open $id_list_file: $!" if $id_list_file; |
|
|
211 |
} |
| 212 |
} |
| 213 |
else { |
| 211 |
$filefh = $query->upload("id_list_file"); |
214 |
$filefh = $query->upload("id_list_file"); |
| 212 |
} |
215 |
} |
| 213 |
my %id_filter; |
216 |
my %id_filter; |
| 214 |
- |
|
|