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.

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com

diff --git a/misc/export_records.pl b/misc/export_records.pl
index e6c3d98..b411425 100755 (executable)
--- a/misc/export_records.pl
+++ b/misc/export_records.pl
@@ -175,7 +175,7 @@ elsif ( $record_type eq 'auths' ) {
 @record_ids = uniq @record_ids;
 if ( @record_ids and my $id_list_file ) {
     my @filter_record_ids = <$id_list_file>;
-    @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;

diff --git a/tools/export.pl b/tools/export.pl
index 2e8b044..efcd544 100755 (executable)
--- 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;