fix error w/current perl - can't call keys on a scalar hashref anymore, RT#77532
[freeside.git] / httemplate / edit / agent_payment_gateway.html
1 <% include("/elements/header.html","$action payment gateway override for ". $agent->agent,  menubar(
2   #'View all payment gateways' => $p. 'browse/payment_gateway.html',
3   'View all agents' => $p. 'browse/agent.cgi',
4 )) %>
5
6 <% include('/elements/error.html') %>
7
8 <FORM ACTION="<%popurl(1)%>process/agent_payment_gateway.html" METHOD=POST>
9 <INPUT TYPE="hidden" NAME="agentnum" VALUE="<% $agent->agentnum %>">
10
11 Use gateway <SELECT NAME="gatewaynum">
12 % foreach my $payment_gateway (
13 %      qsearch('payment_gateway', { 'disabled' => '' } )
14 %    ) {
15 %   # don't let these be selected as agent overrides; there's a different mechanism
16 %   next if $payment_gateway->gateway_namespace eq 'Business::BatchPayment';
17 %
18
19   <OPTION VALUE="<% $payment_gateway->gatewaynum %>"><% $payment_gateway->gateway_module %> (<% $payment_gateway->gateway_username %>)
20 % } 
21
22 </SELECT>
23 <BR><BR>
24
25 <INPUT TYPE="submit" VALUE="Add gateway override">
26 </FORM>
27
28 <% include('/elements/footer.html') %>
29
30 <%init>
31
32 die "access denied"
33   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
34
35 $cgi->param('agentnum') =~ /(\d+)$/ or die "illegal agentnum";
36 my $agent = qsearchs('agent', { 'agentnum' => $1 } );
37 die "agentnum $1 not found" unless $agent;
38
39 #my @agent_payment_gateway;
40 if ( $cgi->param('error') ) {
41 }
42
43 my $action = 'Add';
44
45 </%init>