Changeset 375 for LATMOS-Accounts

Timestamp:

08/20/09 17:30:14 (15 years ago)

Author:

nanardon

Message:

• add get_attributes function

File:

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

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

@@ -198 +198 @@
     };
     $return
+}
+
+=head2 get_attributes($attr)
+
+Like get_c_field but always return an array
+
+=cut
+
+sub get_attributes {
+    my ($self, $cfield) = @_;
+    my $res = $self->get_c_field($cfield);
+    return ref $res ? @{ $res } : ($res);
 }