Changeset 1974 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

Timestamp:

03/17/17 17:23:36 (7 years ago)

Author:

nanardon

Message:

Fix attribute internal evaluation at object creation

File:

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

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

@@ -311 +311 @@
             : $attr->input($data{$_});
         if ($attr->{inline} && ! $attr->{delayed}) {
-            $first{$_} = $formatted;
+            my $iname = $attr->iname;
+            $first{$iname} = $formatted;
         } else {
+            # the real internal name will be translate by _set_c_field
             $second{$_} = $formatted if(defined($formatted));
         }