summaryrefslogtreecommitdiff
path: root/httemplate/edit/process/radius_group.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/process/radius_group.html')
-rw-r--r--httemplate/edit/process/radius_group.html27
1 files changed, 27 insertions, 0 deletions
diff --git a/httemplate/edit/process/radius_group.html b/httemplate/edit/process/radius_group.html
new file mode 100644
index 000000000..884694618
--- /dev/null
+++ b/httemplate/edit/process/radius_group.html
@@ -0,0 +1,27 @@
+<& elements/process.html,
+ 'table' => 'radius_group',
+ 'viewall_dir' => 'browse',
+ 'process_o2m' => {
+ 'table' => 'radius_attr',
+ 'fields' => [ qw( attrtype attrname op value )],
+ },
+ 'precheck_callback' => $precheck_callback,
+&>
+<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my $precheck_callback = sub {
+ my $cgi = shift;
+ my $param = $cgi->Vars;
+ # remove rows with a blank attrname and attrnum
+ foreach my $k (grep /^attrnum\d+$/, keys %$param) {
+ if ( !length($param->{$k}) and !length($param->{$k.'_attrname'}) ) {
+ delete $param->{$k.'_'.$_} foreach qw(attrtype attrname op value);
+ delete $param->{$k};
+ }
+ }
+ '';
+};
+
+</%init>