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

(-)a/misc/export_records.pl (-3 / +3 lines)
Lines 173-180 elsif ( $record_type eq 'auths' ) { Link Here
173
}
173
}
174
174
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 $id_list_file ) {
177
    my @filter_record_ids = <$id_list_file>;
177
    open my $fh, '<', $id_list_file or die "Cannot open file $id_list_file ($!)";
178
    my @filter_record_ids = <$fh>;
178
    @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids;
179
    @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids;
179
    # intersection
180
    # intersection
180
    my %record_ids = map { $_ => 1 } @record_ids;
181
    my %record_ids = map { $_ => 1 } @record_ids;
181
- 

Return to bug 15923