tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-27 07:44:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix recursion while searching group children perl

Browse Source
This commit is contained in:
fbsanchez 2020-07-07 17:19:02 +02:00
parent b717a44913
commit 69d06e77cd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/lib/PandoraFMS/DB.pm
View File

@ -303,10 +303,11 @@ sub get_group_children ($$$;$) {
if (is_empty($href_groups)) { if (is_empty($href_groups)) {
my @groups = get_db_rows($dbh, 'SELECT * FROM tgrupo'); my @groups = get_db_rows($dbh, 'SELECT * FROM tgrupo');
my $href_groups = map { my %groups = map {
$_->{'id_grupo'} => $_ $_->{'id_grupo'} => $_
} @groups } @groups;
$href_groups = \%groups;
} }
my $return = {}; my $return = {};