diff options
-rw-r--r-- | httemplate/edit/process/agent_payment_gateway.html | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/httemplate/edit/process/agent_payment_gateway.html b/httemplate/edit/process/agent_payment_gateway.html new file mode 100644 index 000000000..c306bfa3f --- /dev/null +++ b/httemplate/edit/process/agent_payment_gateway.html @@ -0,0 +1,25 @@ +<% + +$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") %> |