X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fagent_payment_gateway.html;h=c9789cff688b3316e90a711b57777035770ea31f;hp=c306bfa3f0158c0a96d12534f9f0d02a7075c3f4;hb=HEAD;hpb=673b9a458d9138523026963df6fa3b4683e09bae

diff --git a/httemplate/edit/process/agent_payment_gateway.html b/httemplate/edit/process/agent_payment_gateway.html
index c306bfa3f..c9789cff6 100644
--- a/httemplate/edit/process/agent_payment_gateway.html
+++ b/httemplate/edit/process/agent_payment_gateway.html
@@ -1,4 +1,8 @@
-<%
+<% $cgi->redirect(popurl(3). "browse/agent.cgi") %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
 
 $cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
 my $agent = qsearchs('agent', { 'agentnum' => $1 } );
@@ -6,20 +10,13 @@ die "agentnum $1 not found" unless $agent;
 
 #my $old
 
-my @new = map {
-                my $cardtype = $_;
-                new FS::agent_payment_gateway {
+my $new = 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;
-}
+my $error = $new->insert;
+die $error if $error;
 
-%><%= $cgi->redirect(popurl(3). "browse/agent.cgi") %>
+</%init>