X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fradius_group.html;h=0c99b4c4ccec3de660b65c2a116b3d1c45c5eac4;hb=00938b30a69411a743aa01db5e27100818a3c82b;hp=164f0a5815a7ebbf5ed350bb3368cd69e19b0bf0;hpb=99d1d8e1d4230097dbe5f00ca10241e74941d6e3;p=freeside.git

diff --git a/httemplate/edit/radius_group.html b/httemplate/edit/radius_group.html
index 164f0a581..0c99b4c4c 100644
--- a/httemplate/edit/radius_group.html
+++ b/httemplate/edit/radius_group.html
@@ -9,6 +9,9 @@
     'priority'  => 'Priority',
   },
   'viewall_dir' => 'browse',
+  'menubar' => \@menubar,
+  'edit_callback' => $edit_callback,
+  'error_callback' => $edit_callback,
   'fields' => [
     { 'field'     => 'groupname',
       'type'      => 'text',
@@ -40,6 +43,16 @@
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
+my @menubar = ('View all RADIUS Groups' => $p.'browse/radius_group.html');
+
+my $edit_callback = sub {
+  my ($cgi, $object) = @_;
+  if ( $object->groupnum ) {
+    my $link = $p.'misc/delete-radius_group.html?'.$object->groupnum;
+    push @menubar, 'Delete this Group', $link;
+  }
+};
+
 my $m2_error_callback = sub { # reconstruct the list
   my ($cgi, $object) = @_;