Lines 178-184
if ( $op eq "export" ) {
Link Here
|
178 |
@record_ids = uniq @record_ids; |
178 |
@record_ids = uniq @record_ids; |
179 |
if ( @record_ids and my $filefh = $query->upload("id_list_file") ) { |
179 |
if ( @record_ids and my $filefh = $query->upload("id_list_file") ) { |
180 |
my @filter_record_ids = <$filefh>; |
180 |
my @filter_record_ids = <$filefh>; |
181 |
@filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$// } @filter_record_ids; |
181 |
@filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids; |
182 |
# intersection |
182 |
# intersection |
183 |
my %record_ids = map { $_ => 1 } @record_ids; |
183 |
my %record_ids = map { $_ => 1 } @record_ids; |
184 |
@record_ids = grep $record_ids{$_}, @filter_record_ids; |
184 |
@record_ids = grep $record_ids{$_}, @filter_record_ids; |
185 |
- |
|
|