httemplate/misc/delete-agent_payment_gateway.cgi

   1 % die "you don't have the 'Configuration' access right"
   2 %   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
   3 %
   4 % my($query) = $cgi->keywords;
   5 % $query  =~ /^(\d+)$/ || die "Illegal agentgatewaynum";
   6 % my $agentgatewaynum = $1;
   7 %
   8 % my $agent_payment_gateway = qsearchs('agent_payment_gateway', {
   9 %   'agentgatewaynum' => $agentgatewaynum,
  10 % });
  11 %
  12 % my $error = $agent_payment_gateway->delete;
  13 % errorpage($error) if $error;
  14 %
  15 % print $cgi->redirect($p. "browse/agent.cgi");