Changeset 1002 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.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-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -474 +474 @@
     my ($self, $attr, $type) = @_;
 
-    my $attribute = ($type
-        ? ref $type
-            ? $self->base->attribute(
+    my $attribute;
+    if ($type) {
+        if (ref $type) {
+            $attribute = $self->base->attribute(
                 $self->otype,
-                { %$type, name => $attr },)
-            : $self->base->attribute(
+                { %$type, name => $attr },
+            );
+        } else {
+            $attribute =  $self->base->attribute(
                 $self->otype,
-                { formtype => $type , name => $attr },)
-        : ($self->{object}
-            ? $self->{object}->attribute($attr)
-            : $self->base->attribute($self->otype, $attr, { formtype => $type })))
-        || $self->base->attribute($self->otype, { name => $attr });
+                { formtype => $type , name => $attr },
+            );
+        }
+    } else {
+        if ($self->{object}) {
+            $attribute = $self->{object}->attribute($attr);
+        } else {
+            $attribute = $self->base->attribute(
+                $self->otype, $attr,
+                { formtype => $type }
+            );
+        }
+    }
+    $attribute ||= $self->base->attribute($self->otype, { name => $attr });
 
 
@@ -494 +506 @@
     # Force Array context:
     my @attr_raw_value = ();
+
     if ($attribute->multiple) {
         @attr_raw_value = grep { $_ } $self->attr_raw_value($attribute);