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/quick-charge.html | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'httemplate/edit/quick-charge.html')

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