initial location filtering

This commit is contained in:
Oliver Gorwits
2018-03-10 14:27:04 +00:00
parent ffc3f21533
commit 22e6e7a2d8
3 changed files with 31 additions and 5 deletions

View File

@@ -122,8 +122,8 @@ ajax '/ajax/data/device/netmap' => require_login sub {
grep { defined } @{ $hgroup };
# list of locations selected by user and passed in param
my $locgrp = (ref [] eq ref param('locgrp') ? param('locgrp') : [param('locgrp')]);
my @lgrplist = List::MoreUtils::uniq grep { defined } @{ $locgrp };
my $lgroup = (ref [] eq ref param('lgroup') ? param('lgroup') : [param('lgroup')]);
my @lgrplist = List::MoreUtils::uniq grep { defined } @{ $lgroup };
my %ok_dev = ();
my %logvals = ();