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

(-)a/misc/export_records.pl (-1 / +1 lines)
Lines 175-181 elsif ( $record_type eq 'auths' ) { Link Here
175
@record_ids = uniq @record_ids;
175
@record_ids = uniq @record_ids;
176
if ( @record_ids and my $id_list_file ) {
176
if ( @record_ids and my $id_list_file ) {
177
    my @filter_record_ids = <$id_list_file>;
177
    my @filter_record_ids = <$id_list_file>;
178
    @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$// } @filter_record_ids;
178
    @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids;
179
    # intersection
179
    # intersection
180
    my %record_ids = map { $_ => 1 } @record_ids;
180
    my %record_ids = map { $_ => 1 } @record_ids;
181
    @record_ids = grep $record_ids{$_}, @filter_record_ids;
181
    @record_ids = grep $record_ids{$_}, @filter_record_ids;
(-)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