This commit was manufactured by cvs2svn to create branch
[freeside.git] / httemplate / elements / select-radius_group.html
1 <SELECT MULTIPLE NAME = "<% $opt{'element_name'} || $opt{'field'} || 'usergroup' %>"
2         <% $opt{'element_etc'} %>
3 >
4 % foreach my $selopt ( keys %groups ) {
5 %  my $selected = (grep{ $_ eq $selopt } @sel_groups) ? 'SELECTED' : '';
6     <OPTION VALUE="<%$selopt%>" <% $selected %>><% $groups{$selopt} %></OPTION>
7 % }
8 </SELECT>
9 <%init>
10
11 my %opt = @_;
12
13 my %groups = map { $_->groupnum => $_->long_description }
14                                                     qsearch('radius_group', {});
15 my @sel_groups = split(/,/,$opt{'curr_value'});
16
17 </%init>