disable quotations, RT#20688, RT#22232
[freeside.git] / 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>