<% my $conf = new FS::Conf; die "Customer deletions not enabled" unless $conf->exists('deletecustomers'); my($custnum, $new_custnum); if ( $cgi->param('error') ) { $custnum = $cgi->param('custnum'); $new_custnum = $cgi->param('new_custnum'); } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/ or die "Illegal query: $query"; $custnum = $1; $new_custnum = ''; } my $cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } ) or die "Customer not found: $custnum"; print header('Delete customer'); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print qq!

!, qq!!; if ( qsearch('cust_pkg', { 'custnum' => $custnum, 'cancel' => '' } ) ) { print "Move uncancelled packages to customer number ", qq!

!; } print <completely remove all traces of this customer record. This is not what you want if this is a real customer who has simply canceled service with you. For that, cancel all of the customer's packages. (you can optionally hide cancelled customers with the hidecancelledcustomers configuration option)

Are you absolutely sure you want to delete this customer?
END #Deleting a customer you have financial records on (i.e. credits) is #typically considered fraudulant bookkeeping. Remember, deleting #customers should ONLY be used for completely bogus records. You should #NOT delete real customers who simply discontinue service. # #For real customers who simply discontinue service, cancel all of the #customer's packages. Customers with all cancelled packages are not #billed. There is no need to take further action to prevent billing on #customers with all cancelled packages. # #Also see the "hidecancelledcustomers" and "hidecancelledpackages" #configuration options, which will allow you to surpress the display of #cancelled customers and packages, respectively. %>