diff options
Diffstat (limited to 'httemplate/misc/delete-agent_payment_gateway.cgi')
-rw-r--r-- | httemplate/misc/delete-agent_payment_gateway.cgi | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/httemplate/misc/delete-agent_payment_gateway.cgi b/httemplate/misc/delete-agent_payment_gateway.cgi new file mode 100644 index 0000000..20a202e --- /dev/null +++ b/httemplate/misc/delete-agent_payment_gateway.cgi @@ -0,0 +1,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"); |