httemplate/misc/delete-customer.cgi

   1 <!-- mason kludge -->
   2 %
   3 %
   4 %my $conf = new FS::Conf;
   5 %die "Customer deletions not enabled" unless $conf->exists('deletecustomers');
   6 %
   7 %my($custnum, $new_custnum);
   8 %if ( $cgi->param('error') ) {
   9 %  $custnum = $cgi->param('custnum');
  10 %  $new_custnum = $cgi->param('new_custnum');
  11 %} else {
  12 %  my($query) = $cgi->keywords;
  13 %  $query =~ /^(\d+)$/ or die "Illegal query: $query";
  14 %  $custnum = $1;
  15 %  $new_custnum = '';
  16 %}
  17 %my $cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
  18 %  or die "Customer not found: $custnum";
  19 %
  20 %print header('Delete customer');
  21 %
  22 %print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  23 %      "</FONT>"
  24 %  if $cgi->param('error');
  25 %
  26 %print
  27 %  qq!<form action="!, popurl(1), qq!process/delete-customer.cgi" method=post>!,
  28 %  qq!<input type="hidden" name="custnum" value="$custnum">!;
  29 %
  30 %if ( qsearch('cust_pkg', { 'custnum' => $custnum, 'cancel' => '' } ) ) {
  31 %  print "Move uncancelled packages to customer number ",
  32 %        qq!<input type="text" name="new_custnum" value="$new_custnum"><br><br>!;
  33 %}
  34 %
  35 %print <<END;
  36 %This will <b>completely remove</b> all traces of this customer record.  This
  37 %is <B>not</B> what you want if this is a real customer who has simply
  38 %canceled service with you.  For that, cancel all of the customer's packages.
  39 %(you can optionally hide cancelled customers with the <a href="../config/config-view.cgi#hidecancelledcustomers">hidecancelledcustomers</a> configuration option)
  40 %<br>
  41 %<br>Are you <b>absolutely sure</b> you want to delete this customer?
  42 %<br><input type="submit" value="Yes">
  43 %</form></body></html>
  44 %END
  45 %
  46 %#Deleting a customer you have financial records on (i.e. credits) is
  47 %#typically considered fraudulant bookkeeping.  Remember, deleting
  48 %#customers should ONLY be used for completely bogus records.  You should
  49 %#NOT delete real customers who simply discontinue service.
  50 %#
  51 %#For real customers who simply discontinue service, cancel all of the
  52 %#customer's packages.  Customers with all cancelled packages are not
  53 %#billed.  There is no need to take further action to prevent billing on
  54 %#customers with all cancelled packages.
  55 %#
  56 %#Also see the "hidecancelledcustomers" and "hidecancelledpackages"
  57 %#configuration options, which will allow you to surpress the display of
  58 %#cancelled customers and packages, respectively.
  59 %
  60 %
  61