Fix warning
This commit is contained in:
parent
96f6667f24
commit
ab8cc97a52
|
@ -156,7 +156,7 @@ sub setGroups {
|
|||
my $groups = $req->sessionInfo->{groups} || '';
|
||||
my $hGroups = $req->sessionInfo->{hGroups} || {};
|
||||
for my $grp ( keys %demoGroups ) {
|
||||
if ( grep { $_ eq $user } @{ $demoGroups{$grp} } ) {
|
||||
if ( grep { $user && $user eq $_ } @{ $demoGroups{$grp} } ) {
|
||||
$hGroups->{$grp} = { 'name' => $grp };
|
||||
$groups =
|
||||
($groups)
|
||||
|
|
Loading…
Reference in New Issue