- Timestamp:
- 05/04/15 18:23:57 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm
r1331 r1333 240 240 } 241 241 242 sub object { 243 my ($self) = @_; 244 $self->{object}; 245 } 246 242 247 sub label { 243 248 my ($self) = @_; … … 286 291 287 292 $self->{_attr}{$attr}->attr_field($type); 293 } 294 295 sub field { 296 my ($self, $attr, $type) = @_; 297 298 if (!$self->{_attr}{$attr}) { 299 $self->{_attr}{$attr} = $self->{c}->model('AttrFormsA', $attr, ($self->object 300 ? ($self->object) 301 : ($self->base, $self->otype))) 302 or die "Cannot get attribute $_"; 303 } 304 305 $self->{_attr}{$attr}; 288 306 } 289 307
Note: See TracChangeset
for help on using the changeset viewer.