Changeset 1360

Timestamp:

06/25/15 16:52:36 (9 years ago)

Author:

nanardon

Message:

Fix checkinput test when array is passed

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

@@ -239 +239 @@
 
     if ($self->{checkinput}) {
-        if (!$self->{checkinput}->($values)) {
-            return;
+        foreach my $val (ref $values ? @{ $values } : $values) {
+            if (!$self->{checkinput}->($val)) {
+                return;
+            }
         }
     }