[freeside-commits] freeside/httemplate/misc delete-cgp_rule.html, NONE, 1.1.2.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv14733/httemplate/misc

Added Files:
      Tag: FREESIDE_1_9_BRANCH
	delete-cgp_rule.html 
Log Message:
communigate (phase 2): rules.  RT#7514

--- NEW FILE: delete-cgp_rule.html ---
% if ( $error ) {
%   errorpage($error);
% } else {
<% $cgi->redirect($p. "browse/cgp_rule.html?svcnum=". $svcnum) %>
% }
<%init>

# :/  needs agent-virt so you can't futz with arbitrary rules

#die "access denied"
#  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service');

#untaint devicenum
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal rulenum";
my $rulenum = $1;

my $cgp_rule = qsearchs('cgp_rule', { 'rulenum' => $rulenum } );
my $svcnum = $cgp_rule->svcnum;

my $error = $cgp_rule->delete;

</%init>