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

Timestamp:

05/04/15 18:23:56 (9 years ago)

Author:

nanardon

Message:

Fix attribute value fetching without related object

File:

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

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

@@ -405 +405 @@
     my ($self) = @_;
 
-    if (ref($self->{get}) eq 'CODE') {
-        return $self->{get}->($self);
-    } elsif (defined($self->object)) {
-        return $self->object->get_field($self->iname);
+    if (defined($self->object)) {
+        if (ref($self->{get}) eq 'CODE') {
+            return $self->{get}->($self);
+        } else {
+            return $self->object->get_field($self->iname);
+        }
     } else {
         return;