Changeset 1992 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Timestamp:
- 04/27/17 00:47:36 (7 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r1935 r1992 197 197 @attrs = grep { $_->readable } @attrs if($for =~ /r/); 198 198 map { $_->name } grep { !$_->hidden } @attrs; 199 } 200 201 =head2 GetOtypeDef 202 203 This function is called to provide sub object definition. Must be overwritten 204 per object class when need. 205 206 Must return a hashref listing each sub object type and their related key atribute: 207 208 return { 209 addresses => 'user', 210 } 211 212 =cut 213 214 sub GetOtypeDef { 215 my ($class) = @_; 216 217 return; 199 218 } 200 219 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r1964 r1992 58 58 || $self->get_field('description') 59 59 || $self->id; 60 } 61 62 sub GetOtypeDef { 63 my ($class) = @_; 64 65 { 66 address => 'user', 67 employment => 'user', 68 }, 60 69 } 61 70
Note: See TracChangeset
for help on using the changeset viewer.