httemplate/config/config-delete.cgi

   1 <%init>
   2 die "access denied\n"
   3   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
   4
   5 die "No configuration item specified (bad URL)!" unless $cgi->keywords;
   6 my ($query) = $cgi->keywords;
   7 $query =~ /^(\d+)$/;
   8 my $confnum = $1;
   9
  10 my $conf = qsearchs('conf', {'confnum' => $confnum});
  11 die "Configuration not found!" unless $conf;
  12 $conf->delete;
  13
  14 </%init>
  15 <% $cgi->redirect(popurl(2) . "browse/agent.cgi") %>