4 if ( $cgi->param('error') ) {
5 $payment_gateway = new FS::payment_gateway ( {
6 map { $_, scalar($cgi->param($_)) } fields('payment_gateway')
8 } elsif ( $cgi->keywords ) {
9 my($query) = $cgi->keywords;
11 $payment_gateway = qsearchs( 'payment_gateway', { 'gatewaynum' => $1 } );
13 $payment_gateway = new FS::payment_gateway {};
15 my $action = $payment_gateway->gatewaynum ? 'Edit' : 'Add';
16 #my $hashref = $payment_gateway->hashref;
20 <%= header("$action Payment gateway", menubar(
22 'View all payment gateways' => $p. 'browse/payment_gateway.html',
25 <% if ( $cgi->param('error') ) { %>
26 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
29 <FORM ACTION="<%=popurl(1)%>process/payment_gateway.html" METHOD=POST>
30 <INPUT TYPE="hidden" NAME="gatewaynum" VALUE="<%= $payment_gateway->gatewaynum %>">
31 Gateway #<%= $payment_gateway->gatewaynum || "(NEW)" %>
33 <%= ntable('#cccccc', 2, '') %>
36 <TH ALIGN="right">Gateway: </TH>
37 <TD><SELECT NAME="gateway_module" SIZE=1>
38 <% foreach my $module ( qw(
71 <OPTION VALUE="<%= $module %>"><%= $module %>
78 <TH ALIGN="right">Username: </TH>
79 <TD><INPUT TYPE="text" NAME="gateway_username"></TD>
83 <TH ALIGN="right">Password: </TH>
84 <TD><INPUT TYPE="text" NAME="gateway_password"></TD>
88 <TH ALIGN="right">Action: </TH>
90 <SELECT NAME="gateway_action" SIZE=1>
91 <OPTION VALUE="Normal Authorization">Normal Authorization
92 <OPTION VALUE="Authorization Only">Authorization Only
93 <OPTION VALUE="Authorization Only, Post Authorization">Authorization Only, Post Authorization
99 <TH ALIGN="right">Options: </TH>
100 <TD><TEXTAREA ROWS="5" NAME="gateway_options"></TEXTAREA></TD>
105 <BR><INPUT TYPE="submit" VALUE="<%= $payment_gateway->gatewaynum ? "Apply changes" : "Add gateway" %>">