httemplate/misc/clone-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 svcnum and clone
  14 $cgi->param('svcnum') =~ /^(\d+)$/ || die "Illegal svcnum";
  15 my $svcnum = $1;
  16 $cgi->param('clone') =~ /^(\d+)$/ || die "Illegal clone";
  17 my $clone = $1;
  18
  19 my @cgp_rule = qsearch('cgp_rule', { 'svcnum' => $clone } );
  20
  21 my $error = '';
  22 foreach my $cgp_rule ( @cgp_rule ) {
  23   $error = $cgp_rule->clone( $svcnum );
  24   last if $error;
  25 }
  26
  27 </%init>