diff options
author | ivan <ivan> | 2005-08-18 05:41:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-08-18 05:41:24 +0000 |
commit | a63d357ca795791aa47e1ed6b3954e5774af70ec (patch) | |
tree | 303405a525e976ee19f1acee808bd34e480f4896 /httemplate/edit | |
parent | e74b34488a2a8a192ee2bea7030ecde462645290 (diff) |
hopefully this is the last missing file
Diffstat (limited to 'httemplate/edit')
-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") %> |