From cd9589681d053f15cb54b58570af908e40abd460 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 29 Feb 2016 10:56:33 +0000
Subject: [PATCH] Bug 15923: Fix --id_list_file option for
 misc/export_records.pl

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
---
 misc/export_records.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/misc/export_records.pl b/misc/export_records.pl
index b411425614..27835427b8 100755
--- a/misc/export_records.pl
+++ b/misc/export_records.pl
@@ -173,8 +173,9 @@ 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>;
+if ( @record_ids and $id_list_file ) {
+    open my $fh, '<', $id_list_file or die "Cannot open file $id_list_file ($!)";
+    my @filter_record_ids = <$fh>;
     @filter_record_ids = map { my $id = $_; $id =~ s/[\r\n]*$//; $id } @filter_record_ids;
     # intersection
     my %record_ids = map { $_ => 1 } @record_ids;
-- 
2.39.5