View | Details | Raw Unified | Return to bug 15923
Collapse All | Expand All

(-)a/tools/export.pl (-2 / +1 lines)
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
- 

Return to bug 15923