[freeside-commits] freeside/httemplate/edit/process agent_payment_gateway.html, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory wavetail:/tmp/cvs-serv4522

Added Files:
	agent_payment_gateway.html 
Log Message:
hopefully this is the last missing file


--- NEW FILE: agent_payment_gateway.html ---
<%

$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 = map {
                my $cardtype = $_;
                new FS::agent_payment_gateway {
                  ( map { $_ => scalar($cgi->param($_)) }
                                    fields('agent_payment_gateway')
                  ),
                  'cardtype' => $cardtype,
                };
              }
              $cgi->param('cardtype');

foreach my $new (@new) {
  my $error = $new->insert;
  die $error if $error;
}

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