From e078ca418dcf3c7b92efcd371ce761df3314c369 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 18 Mar 2010 07:59:52 +0000
Subject: disable auto-billing of specific customer packages, RT#6378

---
 httemplate/edit/process/quick-charge.cgi   | 1 +
 httemplate/edit/process/quick-cust_pkg.cgi | 1 +
 httemplate/edit/quick-charge.html          | 7 +++++++
 3 files changed, 9 insertions(+)

(limited to 'httemplate/edit')

diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi
index 827530e50..27921b8c3 100644
--- a/httemplate/edit/process/quick-charge.cgi
+++ b/httemplate/edit/process/quick-charge.cgi
@@ -61,6 +61,7 @@ unless ( $error ) {
                            ? str2time($cgi->param('start_date'))
                            : ''
                        ),
+    'no_auto'       => scalar($cgi->param('no_auto')),
     'pkg'           => scalar($cgi->param('pkg')),
     'setuptax'      => scalar($cgi->param('setuptax')),
     'taxclass'      => scalar($cgi->param('taxclass')),
diff --git a/httemplate/edit/process/quick-cust_pkg.cgi b/httemplate/edit/process/quick-cust_pkg.cgi
index a0958922e..202d0a3cf 100644
--- a/httemplate/edit/process/quick-cust_pkg.cgi
+++ b/httemplate/edit/process/quick-cust_pkg.cgi
@@ -57,6 +57,7 @@ my $cust_pkg = new FS::cust_pkg {
                                 ? str2time($cgi->param('start_date'))
                                 : ''
                             ),
+  'no_auto'              => scalar($cgi->param('no_auto')),
   'refnum'               => $refnum,
   'locationnum'          => $locationnum,
   'discountnum'          => $discountnum,
diff --git a/httemplate/edit/quick-charge.html b/httemplate/edit/quick-charge.html
index 64ad3a289..a472915a1 100644
--- a/httemplate/edit/quick-charge.html
+++ b/httemplate/edit/quick-charge.html
@@ -153,6 +153,13 @@ function bill_now_changed (what) {
   });
 </SCRIPT>
 
+% if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) {
+%   my $what = lc(FS::payby->shortname($cust_main->payby));
+    <TR>
+      <TD ALIGN="right">Disable automatic <% $what %> charge </TD>
+      <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="no_auto" VALUE="Y"></TD>
+    </TR>
+% }
 
 <TR>
   <TD ALIGN="right">Tax exempt </TD>
-- 
cgit v1.2.1