Changeset 1786 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 06/22/16 09:34:24 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm
r1782 r1786 4 4 use strict; 5 5 use warnings; 6 use overload '""' => 'stringify'; 6 7 7 8 use base qw(LATMOS::Accounts::Bases::Sql::objects); … … 16 17 17 18 =cut 19 20 sub stringify { 21 my ($self) = @_; 22 23 $self->get_field('label') 24 || $self->id; 25 } 18 26 19 27 sub _object_table { 'group' }
Note: See TracChangeset
for help on using the changeset viewer.