From 077fcf2d0f708774411c49f0278d8e23598afbee Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 11 Sep 2012 15:15:17 +0200 Subject: [PATCH] Bug 7621: Followup: FIX warnings "Scalar value @values[$take] better written as $values[$take]" The previous patch introduces some perl warnings in log --- C4/Circulation.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 8bd53b9..273c6f3 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -982,16 +982,16 @@ sub CanBookBeIssued { # Index points to the next value my $restrictionyear = 0; if (($take <= $#values) && ($take >= 0)){ - $restrictionyear += @values[$take]; + $restrictionyear += $values[$take]; } if ($restrictionyear > 0) { if ( $borrower->{'dateofbirth'} ) { my @alloweddate = split /-/,$borrower->{'dateofbirth'} ; - @alloweddate[0] += $restrictionyear; + $alloweddate[0] += $restrictionyear; #Prevent runime eror on leap year (invalid date) - if ((@alloweddate[1] == 2) && (@alloweddate[2] == 29)) { - @alloweddate[2] = 28; + if (($alloweddate[1] == 2) && ($alloweddate[2] == 29)) { + $alloweddate[2] = 28; } if ( Date_to_Days(Today) < Date_to_Days(@alloweddate) -1 ) { -- 1.7.10.4