summaryrefslogtreecommitdiff
path: root/httemplate/misc/order_pkg.html
diff options
context:
space:
mode:
authorivan <ivan>2010-03-18 07:59:52 +0000
committerivan <ivan>2010-03-18 07:59:52 +0000
commite078ca418dcf3c7b92efcd371ce761df3314c369 (patch)
treea296537d522a47cf083db299fa016c818881a4db /httemplate/misc/order_pkg.html
parentca68d3b10051450d8523f54cc4e579bb0d8a6cc2 (diff)
disable auto-billing of specific customer packages, RT#6378
Diffstat (limited to 'httemplate/misc/order_pkg.html')
-rw-r--r--httemplate/misc/order_pkg.html10
1 files changed, 9 insertions, 1 deletions
diff --git a/httemplate/misc/order_pkg.html b/httemplate/misc/order_pkg.html
index 666099a02..33b2bb390 100644
--- a/httemplate/misc/order_pkg.html
+++ b/httemplate/misc/order_pkg.html
@@ -66,6 +66,14 @@
});
</SCRIPT>
+% if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) {
+% my $what = lc(FS::payby->shortname($cust_main->payby));
+ <TR>
+ <TH ALIGN="right">Disable automatic <% $what %> charge </TH>
+ <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="no_auto" VALUE="Y"></TD>
+ </TR>
+% }
+
% if ( $curuser->access_right('Discount customer package') ) {
<% include('/elements/tr-select-discount.html',
'element_etc' => 'DISABLED',
@@ -119,7 +127,7 @@ my $cust_main = qsearchs({
my $pkgpart = scalar($cgi->param('pkgpart'));
-my $format = "%m/%d/%Y %T %z (%Z)"; #false laziness w/REAL_cust_pkg.cgi?
+my $format = $date_format. ' %T %z (%Z)'; #false laziness w/REAL_cust_pkg.cgi?
my $start_date = $cust_main->next_bill_date;
$start_date = $start_date ? time2str($format, $start_date) : '';