Changeset 2357

Timestamp:

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

Author:

nanardon

Message:

Fix: default value setting

File:

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

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

@@ -440 +440 @@
         my %default = $self->compute_default($otype, $id, %cdata);
         foreach my $k (keys %default) {
+            my $attr = $self->attribute($otype, $k) or next;
+            $attr->ro and next;
             $data{$k} = $default{$k};
         }