Changeset 1974

Timestamp:

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

Author:

nanardon

Message:

Fix attribute internal evaluation at object creation

Location:

trunk

Files:

• LATMOS-Accounts-Web/root/html/login/index.tt (modified) (1 diff)
• LATMOS-Accounts/Changes (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (2 diffs)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/root/html/login/index.tt

@@ -13 +13 @@
 </form>
 
-[% IF sslid %]
+[% IF sslid AND sslid != 'NULL' %]
 <form action="[% c.uri_for('/login') %]" method="POST">
 <p style="text-align: center;">Ou s'authentifier via SSL en tant que: [% sslid | html %]

trunk/LATMOS-Accounts/Changes

@@ +1 @@
+5.2.14
+
+    Allow to set manager at user creation
+
 5.2.13
 

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

@@ -379 +379 @@
         my $attribute = $self->attribute($otype, $cfield) or next;
         $attribute->ro and next;
-        $data{$attribute->iname} = $cdata{$cfield};
+        $data{$cfield} = $cdata{$cfield};
     }
     $self->create_object($otype, $id, %data) or return;
@@ -409 +409 @@
 sub create_object {
     my ($self, $otype, $id, %data) = @_;
+
     "$id" or do {
         $self->log(LA_ERR, l("Cannot create %s object with empty id"),

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