httemplate/misc/delete-cgp_rule.html

   1 % if ( $error ) {
   2 %   errorpage($error);
   3 % } else {
   4 <% $cgi->redirect($p. "browse/cgp_rule.html?svcnum=". $svcnum) %>
   5 % }
   6 <%init>
   7
   8 # :/  needs agent-virt so you can't futz with arbitrary rules
   9
  10 #die "access denied"
  11 #  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service');
  12
  13 #untaint rulenum
  14 my($query) = $cgi->keywords;
  15 $query =~ /^(\d+)$/ || die "Illegal rulenum";
  16 my $rulenum = $1;
  17
  18 my $cgp_rule = qsearchs('cgp_rule', { 'rulenum' => $rulenum } );
  19 my $svcnum = $cgp_rule->svcnum;
  20
  21 my $error = $cgp_rule->delete;
  22
  23 </%init>