<% include('/elements/header-popup.html', 'Cancel customer' ) %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

Permanently delete all services and cancel this customer? <% $ban %>

<% ntable("#cccccc", 2) %> <% include('/elements/tr-select-reason.html', 'field' => 'reasonnum', 'reason_class' => 'C', #XXX these need to be sticky on errors too... #'curr_value' => '', 'control_button' => 'document.cust_cancel_popup.submit', ) %>

        

<%init> my($custnum, $reasonnum, $submit, $cust_main, $curuser, $class); if ( $cgi->param('error') ) { $custnum = $cgi->param('custnum'); $reasonnum = $cgi->param('reasonnum'); } else { my( $query ) = $cgi->keywords; if ( $query =~ /^(\d+)$/ ) { $custnum = $1; } else { die "illegal query ". $cgi->keywords; } } $curuser = $FS::CurrentUser::CurrentUser; $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 = '

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