Changeset 1794

Timestamp:

06/27/16 18:47:42 (8 years ago)

Author:

nanardon

Message:

Fix default value overwritting value explicitelly set to null

File:

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

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

@@ -345 +345 @@
         my %default = $self->compute_default($otype, $id, %cdata);
         foreach my $k (keys %default) {
-            $cdata{$k} = $default{$k};
+            $cdata{$k} = $default{$k} unless(exists($cdata{$k}));
         }
     }