Changeset 1530 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

Timestamp:

12/23/15 16:54:28 (9 years ago)

Author:

nanardon

Message:

Fix default value in new object form

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm (modified) (2 diffs)

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

@@ -451 +451 @@
 }
 
+=head2 defaultValue
+
+Return the default static value for this attribute.
+
+=cut
+
+sub defaultValue {
+    my ($self) = @_;
+
+    return $self->base->defaultAttributeValue($self->otype, $self->name)
+}
+
 =head2 getValues
 
@@ -499 +511 @@
 sub default_value {
     my ($self) = @_;
-    return grep { $_ } (ref $self->{default}
-        ? @{ $self->{default} }
-        : $self->{default});
+    $self->defaultValue;
 }