httemplate/edit/process/agent_payment_gateway.html

   1 <%
   2
   3 $cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
   4 my $agent = qsearchs('agent', { 'agentnum' => $1 } );
   5 die "agentnum $1 not found" unless $agent;
   6
   7 #my $old
   8
   9 my @new = map {
  10                 my $cardtype = $_;
  11                 new FS::agent_payment_gateway {
  12                   ( map { $_ => scalar($cgi->param($_)) }
  13                                     fields('agent_payment_gateway')
  14                   ),
  15                   'cardtype' => $cardtype,
  16                 };
  17               }
  18               $cgi->param('cardtype');
  19
  20 foreach my $new (@new) {
  21   my $error = $new->insert;
  22   die $error if $error;
  23 }
  24
  25 %><%= $cgi->redirect(popurl(3). "browse/agent.cgi") %>