From a63d357ca795791aa47e1ed6b3954e5774af70ec Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 18 Aug 2005 05:41:24 +0000
Subject: [PATCH] hopefully this is the last missing file

---
 .../edit/process/agent_payment_gateway.html   | 25 +++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 httemplate/edit/process/agent_payment_gateway.html

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") %>
-- 
2.20.1