diff options
Diffstat (limited to 'httemplate/misc/delete-customer.cgi')
-rwxr-xr-x | httemplate/misc/delete-customer.cgi | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/httemplate/misc/delete-customer.cgi b/httemplate/misc/delete-customer.cgi deleted file mode 100755 index 203ed36a5..000000000 --- a/httemplate/misc/delete-customer.cgi +++ /dev/null @@ -1,64 +0,0 @@ -<% include('/elements/header.html', 'Delete customer') %> - -<% include('/elements/error.html') %> - -<FORM ACTION="<% popurl(1) %>process/delete-customer.cgi" METHOD=POST> -<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum |h %>"> - -%if ( qsearch('cust_pkg', { 'custnum' => $custnum, 'cancel' => '' } ) ) { - Move uncancelled packages to customer number - <INPUT TYPE="text" NAME="new_custnum" VALUE="<% $new_custnum |h %>"><BR><BR> -%} - -This will <B>completely remove</B> all traces of this customer record. This -is <B>not</B> 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 <A HREF="../config/config-view.cgi#hidecancelledcustomers">hidecancelledcustomers</A> configuration option) -<BR> -<BR>Are you <B>absolutely sure</B> you want to delete this customer? -<BR><INPUT TYPE="submit" VALUE="Yes"> -</FORM> - -<% include('/elements/footer.html') %> - -%#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. - -<%init> - -my $conf = new FS::Conf; -die "Customer deletions not enabled in configuration" - unless $conf->exists('deletecustomers'); - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Delete customer'); - -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( { - 'table' => 'cust_main', - 'hashref' => { 'custnum' => $custnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -} ) - or die 'Unknown custnum'; - -</%init> |