Changeset 1002 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

05/19/12 11:38:41 (12 years ago)

Author:

nanardon

Message:

• fix attributes object return in some, simplify code

File:

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

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

@@ -132 +132 @@
 sub attribute {
     my ($self, $attribute) = @_;
+
+    my $attrinfo;
+    if (! ref $attribute) {
+        $attrinfo = $self->base->get_attr_schema(
+            $self->type, $attribute
+        ) or return;
+        $attrinfo->{name} = $attribute;
+    } else {
+        $attrinfo = $attribute;
+    }
+
     return LATMOS::Accounts::Bases::Attributes->new(
-        $attribute,
+        $attrinfo,
         $self,
     );