Bug 8227 Fix deprecated construct compile time warning in Serials

[koha.git] / C4 / Serials.pm

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 07f0948..58b6078 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -30,7 +30,7 @@ use C4::Debug;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
-    $VERSION = 3.01;    # set version for version checking
+    $VERSION = 3.07.00.049;    # set version for version checking
     require Exporter;
     @ISA    = qw(Exporter);
     @EXPORT = qw(
@@ -601,7 +601,7 @@ sub GetSubscriptions {
         my @sqlstrings;
         my @strings_to_search;
         @strings_to_search = map { "$_" } split( / /, $ean );
-        foreach my $index qw(biblioitems.ean) {
+        foreach my $index ( qw(biblioitems.ean) ) {
             push @bind_params, @strings_to_search;
             my $tmpstring = "OR $index = ? " x scalar(@strings_to_search);
             $debug && warn "$tmpstring";