Changeset 1918 for trunk

Timestamp:

01/06/17 19:14:39 (7 years ago)

Author:

nanardon

Message:

Fix display of gidNumber

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -159 +159 @@
                 display => sub {
                     my ($self, $val) = @_;
-                    my ($gr) = $self->base->search_objects('group', "gidNumber=$val")
-                        or return;
-                    return $gr;
+                    if ($val =~ /^\d+$/) {
+                        my ($gr) = $self->base->search_objects('group', "gidNumber=$val")
+                            or return;
+                        return $gr;
+                    } else {
+                        my ($gr) = $self->base->search_objects('group', "name=$val")
+                            or return;
+                        return $gr;
+                    }
                 },
                 input => sub {