mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-07-26 23:35:02 +02:00
fix recursion while searching group children perl
This commit is contained in:
parent
b717a44913
commit
69d06e77cd
@ -303,10 +303,11 @@ sub get_group_children ($$$;$) {
|
||||
if (is_empty($href_groups)) {
|
||||
my @groups = get_db_rows($dbh, 'SELECT * FROM tgrupo');
|
||||
|
||||
my $href_groups = map {
|
||||
my %groups = map {
|
||||
$_->{'id_grupo'} => $_
|
||||
} @groups
|
||||
} @groups;
|
||||
|
||||
$href_groups = \%groups;
|
||||
}
|
||||
|
||||
my $return = {};
|
||||
|
Loading…
x
Reference in New Issue
Block a user