Changeset 1416

Timestamp:

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

Author:

nanardon

Message:

Avoid useless error messages

Location:

trunk/LATMOS-Accounts/lib/LATMOS

Files:

• Accounts.pm (modified) (1 diff)
• Accounts/Bases/Attributes.pm (modified) (1 diff)
• Accounts/Bases/Sql/objects.pm (modified) (1 diff)

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

@@ -11 +11 @@
 use LATMOS::Accounts::Acls;
 
-our $VERSION = '5.0.0';
+our $VERSION = '5.0.2';
 
 =head1 NAME

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;
         }

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -692 +692 @@
         # Invalid filter due to impossible value:
         $attribute->checkinputformat($val) or do {
-            $base->log(LA_ERR, "Invalid value $val for attribute $attr");
+            $base->log(LA_ERR, "Invalid format value $val for attribute $attr");
             return;
         };