re-write RADIUS groups, RT13274

[freeside.git] / httemplate / elements / select-radius_group.html

diff --git a/httemplate/elements/select-radius_group.html b/httemplate/elements/select-radius_group.html
new file mode 100644 (file)
index 0000000..eeaf5ac
--- /dev/null
+++ b/httemplate/elements/select-radius_group.html
@@ -0,0 +1,17 @@
+<SELECT MULTIPLE NAME = "<% $opt{'element_name'} || $opt{'field'} || 'usergroup' %>"
+        <% $opt{'element_etc'} %>
+>
+% foreach my $selopt ( keys %groups ) {
+%  my $selected = (grep{ $_ eq $selopt } @sel_groups) ? 'SELECTED' : '';
+    <OPTION VALUE="<%$selopt%>" <% $selected %>><% $groups{$selopt} %></OPTION>
+% }
+</SELECT>
+<%init>
+
+my %opt = @_;
+
+my %groups = map { $_->groupnum => $_->description . " (" . $_->groupname . ")" }
+                                                    qsearch('radius_group', {});
+my @sel_groups = split(/,/,$opt{'curr_value'});
+
+</%init>