Changeset 484

Timestamp:

10/04/09 05:33:39 (15 years ago)

Author:

nanardon

Message:

• fix acl test

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (1 diff)

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

@@ -189 +189 @@
     my ($self, $attr, $type) = @_;
     $type ||= $self->base->get_field_name($self->otype, $attr, 'w') &&
-              $self->base->check_acl($self->{object} || $self->otype, $attr, 'w')
+              $self->base->check_acl($self->{object}
+                  ? ($self->{object}, $attr, 'w')
+                  : ($self->otype, '@CREATE', 'w'))
         ? $attrs->{$attr}[1] || ''
         : 'label';