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(
70 <OPTION VALUE="<%= $module %>"><%= $module %>
77 <TH ALIGN="right">Username: </TH>
78 <TD><INPUT TYPE="text" NAME="gateway_username"></TD>
82 <TH ALIGN="right">Password: </TH>
83 <TD><INPUT TYPE="text" NAME="gateway_password"></TD>
87 <TH ALIGN="right">Action: </TH>
89 <SELECT NAME="gateway_action" SIZE=1>
90 <OPTION VALUE="Normal Authorization">Normal Authorization
91 <OPTION VALUE="Authorization Only">Authorization Only
92 <OPTION VALUE="Authorization Only, Post Authorization">Authorization Only, Post Authorization
98 <TH ALIGN="right">Options: </TH>
99 <TD><TEXTAREA ROWS="5" NAME="gateway_options"></TEXTAREA></TD>
104 <BR><INPUT TYPE="submit" VALUE="<%= $payment_gateway->gatewaynum ? "Apply changes" : "Add gateway" %>">