blob: fb0f1e4b8ebc4788f558c23fe0f03f7e5f13fd96 (
plain)
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;
% eidiot($error) if $error;
%
% print $cgi->redirect($p. "browse/agent.cgi");
|
