Changeset 2328

Timestamp:

12/17/19 15:38:31 (4 years ago)

Author:

nanardon

Message:

Compute gecos at the end

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• User.pm (modified) (1 diff)
• objects.pm (modified) (1 diff)

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

@@ -935 +935 @@
             gecos => {
                 ro => 1,
-                auto => 1,
+                auto => 2,
             },
             _gecos => {

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

@@ -829 +829 @@
 
     my %data;
+
+    my %AttrToCompute;
     foreach my $attr ($self->base->list_canonical_fields($self->type, 'r')) {
         my $oattr = $self->base->get_attr_schema($self->type, $attr);
         if ($oattr->{auto}) {
+            push(@{ $AttrToCompute { $oattr->{auto} } }, $attr);
+        }
+    }
+
+    foreach my $level (sort { $a <=> $b } keys %AttrToCompute) {
+        foreach my $attr (@{ $AttrToCompute{ $level } }) {
             my $source = "_$attr";
             $data{$attr} = $self->_get_c_field($source);
         }
     }
+
     my $res = $self->set_fields(%data);