Changeset 2356

Timestamp:

05/26/20 03:38:36 (4 years ago)

Author:

nanardon

Message:

Revert "Move back attribute values check"

This reverts commit 5e15ae4600f79f3ad76ed4dc952325fac694980b.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (3 diffs)

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

@@ -10 +10 @@
 use DateTime;
 
-our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev: 2156 $ =~ /^Rev: (\d+) /)[0];
 
 =head1 NAME
@@ -434 +434 @@
     }
 
-    foreach my $cfield (keys %cdata) {
-        $self->check_allowed_values($otype, $cfield, $cdata{$cfield}) or do {
-            my $last = LATMOS::Accounts::Log::lastmessage(LA_ERR);
-            $self->log(LA_ERR, "Cannot create $otype, wrong value%s", ($last ? ": $last" : ''));
-            return;
-        };
-    }
-
-
     my %data;
 
@@ -489 +480 @@
             $data{$cfield} = $cdata{$cfield};
         }
+    }
+
+    foreach my $cfield (keys %data) {
+        $self->check_allowed_values($otype, $cfield, $data{$cfield}) or do {
+            my $last = LATMOS::Accounts::Log::lastmessage(LA_ERR);
+            $self->log(LA_ERR, "Cannot create $otype, wrong value%s", ($last ? ": $last" : ''));
+            return;
+        };
     }