X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fcancel_cust.html;h=85367026c9ff1a640acb0371afea58ec685e4482;hp=b7ecccd7e67d1b6070ee8282a56d8b40a789e65d;hb=b282a5536ad5145f956ef27704e2267a124aacf5;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c diff --git a/httemplate/misc/cancel_cust.html b/httemplate/misc/cancel_cust.html index b7ecccd7e..85367026c 100644 --- a/httemplate/misc/cancel_cust.html +++ b/httemplate/misc/cancel_cust.html @@ -1,31 +1,28 @@ -<% include('/elements/header-popup.html', 'Cancel customer' ) %> - -<% include('/elements/error.html') %> +<& /elements/header-popup.html, mt('Cancel customer') &> +<& /elements/error.html &>
+

<% mt('Permanently delete all services and cancel this customer?') |h %> -

Permanently delete all services and cancel this customer? - - +
- + -
Cancel now<% mt('Cancel now') |h %>
Cancel on date:  - <% include('/elements/input-date-field.html', { + <% mt('Cancel on date: ') |h %> + <& /elements/input-date-field.html, { 'name' => 'expire', 'value' => time, - } ) %> + } &>
@@ -38,23 +35,29 @@ function toggle(val) { } toggle(false); -<% $ban %> - - -<% include('/elements/tr-select-reason.html', +% if ( $cust_main->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ ) { +% my $ban = "Ban this customer's "; +% $ban .= 'credit card' if $cust_main->payby =~ /^(CARD|DCRD)$/; +% $ban .= 'ACH account' if $cust_main->payby =~ /^(CHEK|DCHK)$/; +

+ <% mt($ban) |h %> +% } + +

+<& /elements/tr-select-reason.html, 'field' => 'reasonnum', 'reason_class' => 'C', 'cgi' => $cgi, - 'control_button' => "document.getElementById('confirm_cancel_cust_button')", - ) -%> + 'control_button' => 'confirm_cancel_cust_button', +&>

-          + +         +" onClick="parent.cClick();">

@@ -76,16 +79,5 @@ my $cust_main = qsearchs( { } ); die "No customer # $custnum" unless $cust_main; -my $ban = ''; -if ( $cust_main->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ ) { - $ban = '

'. - ' Ban this customer\'s '; - if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) { - $ban .= 'credit card'; - } elsif ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) { - $ban .= 'ACH account'; - } -} -