Changeset 1416 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

Timestamp:

10/07/15 16:48:36 (9 years ago)

Author:

nanardon

Message:

Avoid useless error messages

File:

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

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

@@ -203 +203 @@
     if ($self->{checkinputformat}) {
         if (!$self->{checkinputformat}->($value)) {
+           return;
+        }
+    }
+
+    return 1;
+}
+
+=head2 checkinput ($value)
+
+Check input value, return false on error
+
+=cut
+
+sub checkinput {
+    my ($self, $values) = @_;
+
+    foreach my $value (ref $values ? @{ $values } : $values) {
+        if (!$self->checkinputformat($value)) {
             $self->base->log(LA_ERR, "Wrong format for  %s/%s: %s",
                $self->name,
                $self->{_otype},
                $value
-           );
-           return;
-        }
-    }
-
-    return 1;
-}
-
-=head2 checkinput ($value)
-
-Check input value, return false on error
-
-=cut
-
-sub checkinput {
-    my ($self, $values) = @_;
-
-    foreach my $value (ref $values ? @{ $values } : $values) {
-        if (!$self->checkinputformat($value)) {
+            );
             return;
         }