From 9f2280fbce022ab9bcfc46fe94483730b0aeb0f8 Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Tue, 21 Jun 2011 01:08:07 +0000
Subject: re-write RADIUS groups, RT13274

---
 httemplate/elements/menu.html                |  3 +++
 httemplate/elements/select-radius_group.html | 17 +++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 httemplate/elements/select-radius_group.html

(limited to 'httemplate/elements')

diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index f5639a9ef..236fe6a53 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -545,6 +545,9 @@ $config_misc{'Inventory classes and inventory'} = [ $fsurl.'browse/inventory_cla
 $config_misc{'Hardware types'} = [ $fsurl.'browse/hardware_class.html', 'Set up hardware type catalog' ]
   if $curuser->access_right('Configuration');
 
+$config_misc{'RADIUS Groups'} = [ $fsurl.'browse/radius_group.html', 'Manage RADIUS groups' ]
+  if $curuser->access_right('Configuration');
+
 tie my %config_menu, 'Tie::IxHash';
 if ( $curuser->access_right('Configuration' ) ) {
   %config_menu = (
diff --git a/httemplate/elements/select-radius_group.html b/httemplate/elements/select-radius_group.html
new file mode 100644
index 000000000..eeaf5ac55
--- /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>
-- 
cgit v1.2.1