diff options
Diffstat (limited to 'httemplate/browse/payment_gateway.html')
-rw-r--r-- | httemplate/browse/payment_gateway.html | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/httemplate/browse/payment_gateway.html b/httemplate/browse/payment_gateway.html new file mode 100644 index 000000000..848c58a82 --- /dev/null +++ b/httemplate/browse/payment_gateway.html @@ -0,0 +1,94 @@ +<% include( 'elements/browse.html', + 'title' => 'Payment gateways', + 'menubar' => [ 'Agents' => $p.'browse/agent.cgi', ], + 'html_init' => $html_init, + 'name' => 'payment gateways', + 'disableable' => 1, + 'disabled_statuspos' => 1, + 'query' => { 'table' => 'payment_gateway', + 'hashref' => {}, + }, + 'count_query' => $count_query, + 'header' => [ '#', + 'Gateway', + 'Username', + 'Password', + 'Action', + 'Options', + ], + 'fields' => [ 'gatewaynum', + $gateway_sub, + 'gateway_username', + sub { ' - '; }, + 'gateway_action', + $options_sub, + ], + ) +%> + +</TABLE> + +<% include('/elements/footer.html') %> +<%once> + +my $html_init = qq! + <A HREF="${p}edit/payment_gateway.html"><I>Add a new payment gateway</I></A> + <BR><BR> + + <SCRIPT> + function areyousure(href) { + if (confirm("Are you sure you want to disable this payment gateway?") == true) + window.location.href = href; + } + </SCRIPT> + +!; + +my $gateway_sub = sub { + my($payment_gateway) = @_; + + my $gatewaynum = $payment_gateway->gatewaynum; + + my $html = $payment_gateway->gateway_module. ' '. qq! + <FONT SIZE="-1"> + <A HREF="${p}edit/payment_gateway.html?$gatewaynum">(edit)</A> + !; + + unless ( $payment_gateway->disabled ) { + $html .= qq! + <A HREF="javascript:areyousure('${p}misc/disable-payment_gateway.cgi?$gatewaynum')">(disable)</A> + !; + } + + $html .= '</FONT>'; + + $html; + +}; + +my $options_sub = sub { + my($payment_gateway) = @_; + + #should return a structure instead of this manual formatting... + + my $html = '<TABLE CELLSPACING=0 CELLPADDING=0>'; + + my %options = $payment_gateway->options; + foreach my $option ( keys %options ) { + $html .= '<TR><TH>'. $option. ':</TH>'. + '<TD>'. $options{$option}. '</TD></TR>'; + } + $html .= '</TABLE>'; + + $html; +}; + +my $count_query = 'SELECT COUNT(*) FROM payment_gateway'; + +</%once> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +</%init> |