Changeset 1918 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 01/06/17 19:14:39 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r1917 r1918 159 159 display => sub { 160 160 my ($self, $val) = @_; 161 my ($gr) = $self->base->search_objects('group', "gidNumber=$val") 162 or return; 163 return $gr; 161 if ($val =~ /^\d+$/) { 162 my ($gr) = $self->base->search_objects('group', "gidNumber=$val") 163 or return; 164 return $gr; 165 } else { 166 my ($gr) = $self->base->search_objects('group', "name=$val") 167 or return; 168 return $gr; 169 } 164 170 }, 165 171 input => sub {
Note: See TracChangeset
for help on using the changeset viewer.