<% $cgi->redirect(popurl(3). "browse/agent.cgi") %>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');

$cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
my $agent = qsearchs('agent', { 'agentnum' => $1 } );
die "agentnum $1 not found" unless $agent;

#my $old

my $new = new FS::agent_payment_gateway {
                  ( map { $_ => scalar($cgi->param($_)) }
                                    fields('agent_payment_gateway')
                  ),
                };

my $error = $new->insert;
die $error if $error;

</%init>