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 %
  26 <% $cgi->redirect(popurl(3). "browse/agent.cgi") %>