From 53547a802d5c76be967cc14301fc8a692f0fe066 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 2 Mar 2008 01:31:39 +0000
Subject: add payment gateway disabling (and move payment gateway browse over
 to new template)

---
 httemplate/misc/disable-payment_gateway.cgi | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 httemplate/misc/disable-payment_gateway.cgi

(limited to 'httemplate/misc/disable-payment_gateway.cgi')

diff --git a/httemplate/misc/disable-payment_gateway.cgi b/httemplate/misc/disable-payment_gateway.cgi
new file mode 100644
index 000000000..13e1f92bc
--- /dev/null
+++ b/httemplate/misc/disable-payment_gateway.cgi
@@ -0,0 +1,25 @@
+%if ( $error ) {
+%  errorpage($error);
+%} else {
+%#<% $cgi->redirect(popurl(2). "browse/payment_gateway.html?showdiabled=$showdisabled") %>
+<% $cgi->redirect(popurl(2). "browse/payment_gateway.html") %>
+%}
+<%init>
+
+die "access deined"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+#my $showdisabled = 0;
+#$cgi->param('showdisabled') =~ /^(\d+)$/ and $showdisabled = $1;
+
+#$cgi->param('gatewaynum') =~ /^(\d+)$/ or die 'illegal gatewaynum';
+my($query) = $cgi->keywords;
+$query =~ /^(\d+)$/ or die 'illegal gatewaynum';
+my $gatewaynum = $1;
+
+my $payment_gateway =
+  qsearchs('payment_gateway', { 'gatewaynum' => $gatewaynum } );
+
+my $error = $payment_gateway->disable;
+
+</%init>
-- 
cgit v1.2.1