Changeset 857

Timestamp:

04/04/10 19:39:34 (14 years ago)

Author:

nanardon

Message:

• _get_attr_schema must return all attributes

File:

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

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

@@ -39 +39 @@
 sub otype { $_[0]->{_otype} }
 
+=head2
+
+Return internal name of attributes
+
+=cut
+
+sub iname { $_[0]->{iname} || $_[0]->name }
+
 sub label { $_[0]->{label} || $_[0]->{_name} }
 
@@ -58 +66 @@
 }
 
-sub ro { 
+sub ro { $_[0]->{ro} || 0 }
+
+sub readonly { 
     my ($self) = @_;
-    return 1 if ($self->{ro});
+    return 1 if ($self->ro);
     
     return ! $self->base->check_acl($self->object