1 <% $cgi->redirect(popurl(3). "browse/agent.cgi") %>
5 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
7 $cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
8 my $agent = qsearchs('agent', { 'agentnum' => $1 } );
9 die "agentnum $1 not found" unless $agent;
13 my $new = new FS::agent_payment_gateway {
14 ( map { $_ => scalar($cgi->param($_)) }
15 fields('agent_payment_gateway')
19 my $error = $new->insert;