From 3671c6e9d4fd8fff9c4e3a99ac01eaed45c75f11 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 29 Feb 2016 08:10:59 +0000 Subject: [PATCH] Bug 15923: Take the id list file into account when exporting records When exporting records (tools/export.pl or misc/export_records.pl), a file of ids (authid or biblionumber) can be passed to filter the results. Bug 14722 has broken this behavior. Test plan: Export records and specify a list of records to filter the results. Prior to this patch, the record with the id 1 was exported. --- tools/export.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/export.pl b/tools/export.pl index 2e8b044..efcd544 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -178,7 +178,7 @@ if ( $op eq "export" ) { @record_ids = uniq @record_ids; if ( @record_ids and my $filefh = $query->upload("id_list_file") ) { my @filter_record_ids = <$filefh>; - @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$// } @filter_record_ids; + @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids; # intersection my %record_ids = map { $_ => 1 } @record_ids; @record_ids = grep $record_ids{$_}, @filter_record_ids; -- 2.7.0