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

Timestamp:

04/29/15 20:24:15 (9 years ago)

Author:

nanardon

Message:

Merge branch 'jquery'

File:

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

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

@@ -396 +396 @@
 sub delayed { $_[0]->{delayed} || 0 }
 
-=head2 get($attr)
+=head2 get
 
 Return the value for this attribute
@@ -405 +405 @@
     my ($self) = @_;
 
-    if (ref $self->{get} eq 'CODE') {
+    if (ref($self->{get}) eq 'CODE') {
         return $self->{get}->($self);
-    } else {
+    } elsif (defined($self->object)) {
         return $self->object->get_field($self->iname);
-    }
-}
+    } else {
+        return;
+    }
+}
+
+=head2 getValues
+
+Return value for this attribute, results are always return as an array
+
+=cut
+
+sub getValues {
+    my ($self) = @_;
+
+    my $res = $self->get();
+
+    return ref $res ? grep { $_ } @{ $res } : $res;
+}
+
 
 =head2 set ($values)