# replace lines 5-13 (inside for loop) # not quite sure why this is inside a for loop since # only one value of $usergroup, etc can be set. my $section = lc($_); my $hDocball = htmlcode('get_docball_data','',$section); #bogus docball has no nodetypes if (scalar keys $hDocball->{nodetypes}) { $usergroup = $hDocball->{usrgroup}; $list_type = $hDocball->{listtype}; $other_types = grep { $_ ne $list_type } keys %{$hDocball->{nodetypes}}; # there is no point in continuing further: # code currently supports only one section even # though the section is being tested within a for loop last; }