diff options
Diffstat (limited to 'httemplate/misc/cancel_cust.html')
-rw-r--r-- | httemplate/misc/cancel_cust.html | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/httemplate/misc/cancel_cust.html b/httemplate/misc/cancel_cust.html deleted file mode 100644 index b7ecccd7e..000000000 --- a/httemplate/misc/cancel_cust.html +++ /dev/null @@ -1,91 +0,0 @@ -<% include('/elements/header-popup.html', 'Cancel customer' ) %> - -<% include('/elements/error.html') %> - - -<FORM NAME="cust_cancel_popup" ACTION="<% popurl(1) %>cust_main-cancel.cgi" METHOD=POST> -<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>"> - - - <P ALIGN="center"><B>Permanently delete all services and cancel this customer?</B> - -<TABLE BORDER="0" CELLSPACING="2" -STYLE="margin-left:auto; margin-right:auto"> -<TR> - <TD ALIGN="right"> - <INPUT TYPE="radio" NAME="now_or_later" VALUE="0" onclick="toggle(false)" CHECKED /> - </TD> - <TD ALIGN="left">Cancel now</TD> -</TR> -<TR> - <TD ALIGN="right"> - <INPUT TYPE="radio" NAME="now_or_later" VALUE="1" onclick="toggle(true)" /> - </TD> - <TD ALIGN="left">Cancel on date: - <% include('/elements/input-date-field.html', { - 'name' => 'expire', - 'value' => time, - } ) %> - </TD> -</TR> -</TABLE> -<SCRIPT type="text/javascript"> -function toggle(val) { - document.getElementById("expire_text").disabled = !val; - document.getElementById("ban").disabled = val; - document.getElementById("expire_button").style.visibility = - val ? 'visible' : 'hidden'; -} -toggle(false); -</SCRIPT> -<% $ban %> - -<TABLE BGCOLOR="#cccccc", BORDER="0" CELLSPACING="2" -STYLE="margin-left:auto; margin-right:auto"> -<% include('/elements/tr-select-reason.html', - 'field' => 'reasonnum', - 'reason_class' => 'C', - 'cgi' => $cgi, - 'control_button' => "document.getElementById('confirm_cancel_cust_button')", - ) -%> - -</TABLE> - -<BR> -<P ALIGN="CENTER"> -<INPUT TYPE="submit" NAME="submit" ID="confirm_cancel_cust_button" VALUE="Cancel customer" DISABLED> <INPUT TYPE="BUTTON" VALUE="Don't cancel" onClick="parent.cClick();"> - -</FORM> -</BODY> -</HTML> - -<%init> - -$cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; -my $custnum = $1; - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" unless $curuser->access_right('Cancel customer'); - -my $cust_main = qsearchs( { - 'table' => 'cust_main', - 'hashref' => { 'custnum' => $custnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -} ); -die "No customer # $custnum" unless $cust_main; - -my $ban = ''; -if ( $cust_main->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ ) { - $ban = '<P ALIGN="center">'. - '<INPUT TYPE="checkbox" NAME="ban" ID="ban" VALUE="1"> Ban this customer\'s '; - if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) { - $ban .= 'credit card'; - } elsif ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) { - $ban .= 'ACH account'; - } -} - -</%init> - |