httemplate/misc/delete-agent_payment_gateway.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

% die "you don't have the 'Configuration' access right"
%   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
%
% my($query) = $cgi->keywords;
% $query  =~ /^(\d+)$/ || die "Illegal agentgatewaynum";
% my $agentgatewaynum = $1;
%
% my $agent_payment_gateway = qsearchs('agent_payment_gateway', { 
%   'agentgatewaynum' => $agentgatewaynum,
% });
%
% my $error = $agent_payment_gateway->delete;
% errorpage($error) if $error;
%
% print $cgi->redirect($p. "browse/agent.cgi");