[REPLACE previous] Removing map calls in void context

[koha.git] / C4 / Serials.pm

diff --git a/C4/Serials.pm b/C4/Serials.pm
index ad12dda..7b868f8 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1798,9 +1798,9 @@ sub HasSubscriptionExpired {
       my ($res) = $sth->fetchrow  ;
       my @res=split (/-/,$res);
       my @endofsubscriptiondate=split(/-/,$expirationdate);
-      map{
+      foreach (@res,@endofsubscriptiondate){
         return 2 unless $_ ;
-      } (@res,@endofsubscriptiondate);     
+      } 
       return 1 if ( (@endofsubscriptiondate && Delta_Days($res[0],$res[1],$res[2],
                   $endofsubscriptiondate[0],$endofsubscriptiondate[1],$endofsubscriptiondate[2]) <= 0)
                   || (!$res));