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