Changeset 2353

Timestamp:

05/26/20 03:01:25 (4 years ago)

Author:

latmossys

Message:

Move back attribute values check

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: 2156 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^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;
 
@@ -480 +489 @@
             $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;
-        };
     }