projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 21758: Navigation in Z39.50 result pages not working in Acquisitions
[koha.git]
/
misc
/
batchdeletebiblios.pl
diff --git
a/misc/batchdeletebiblios.pl
b/misc/batchdeletebiblios.pl
index
11fcaec
..
9bc999a
100755
(executable)
--- a/
misc/batchdeletebiblios.pl
+++ b/
misc/batchdeletebiblios.pl
@@
-16,9
+16,10
@@
pod2usage(1) if $help or not @ARGV;
for my $file ( @ARGV ) {
say "Find biblionumber in file $file";
for my $file ( @ARGV ) {
say "Find biblionumber in file $file";
- open(FD, $file) or say "Error: '$file' $!" and next;
+ my $fh;
+ open($fh, '<', $file) or say "Error: '$file' $!" and next;
- while ( <
FD
> ) {
+ while ( <
$fh
> ) {
my $biblionumber = $_;
$biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/;
chomp $biblionumber;
my $biblionumber = $_;
$biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/;
chomp $biblionumber;