> % foreach my $selopt ( keys %groups ) { % my $selected = (grep{ $_ eq $selopt } @sel_groups) ? 'SELECTED' : ''; ><% $groups{$selopt} %> % } <%init> my %opt = @_; my %groups = map { $_->groupnum => $_->long_description } qsearch('radius_group', {}); my @sel_groups = split(/,/,$opt{'curr_value'});