3 %$cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
4 %my $agent = qsearchs('agent', { 'agentnum' => $1 } );
5 %die "agentnum $1 not found" unless $agent;
11 % new FS::agent_payment_gateway {
12 % ( map { $_ => scalar($cgi->param($_)) }
13 % fields('agent_payment_gateway')
15 % 'cardtype' => $cardtype,
18 % $cgi->param('cardtype');
20 %foreach my $new (@new) {
21 % my $error = $new->insert;
22 % die $error if $error;
26 <% $cgi->redirect(popurl(3). "browse/agent.cgi") %>