Changeset 959 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

Timestamp:

05/15/12 03:30:21 (12 years ago)

Author:

nanardon

Message:

• merge all work around forms

File:

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

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

@@ -152 +152 @@
 sub check_acl {
     my ($self, $mode) = @_;
+
+    return 1 if ($self->{_noacl});
+
     return $self->base->check_acl($self->object
         ? ($self->object, $self->name, $mode)
@@ -234 +237 @@
 
     if (ref $self->{set} eq 'CODE') {
-        return $self->{set}->($self, $values);
+        return $self->{set}->($self,
+            ref $values
+            ? [ map { $self->input($_) } @$values ]
+            : $values ? $self->input($values) : undef);
     } else {
         return $self->object->set_fields(
@@ -240 +246 @@
             ref $values
                 ? [ map { $self->input($_) } @$values ]
-                : $self->input($values),
-        );
-    }
+                : $values ? $self->input($values) : undef);
+    }
+}
+
+sub default_value {
+    my ($self) = @_;
+    return grep { $_ } (ref $self->{default}
+        ? @{ $self->{default} }
+        : $self->{default});
 }