projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updated meta-import web UI to allow duplicate import tables
[freeside.git]
/
httemplate
/
misc
/
process
/
delete-customer.cgi
diff --git
a/httemplate/misc/process/delete-customer.cgi
b/httemplate/misc/process/delete-customer.cgi
index
b15ffef
..
16bdbae
100755
(executable)
--- a/
httemplate/misc/process/delete-customer.cgi
+++ b/
httemplate/misc/process/delete-customer.cgi
@@
-1,32
+1,11
@@
<%
<%
-#
-# $Id: delete-customer.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $
-#
-# $Log: delete-customer.cgi,v $
-# Revision 1.1 2001-07-30 07:36:04 ivan
-# templates!!!
-#
-# Revision 1.1 1999/04/15 16:44:36 ivan
-# delete customers
-#
-use strict;
-use vars qw ( $cgi $conf $custnum $new_custnum $cust_main $error );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearchs);
-use FS::CGI qw(popurl);
-use FS::cust_main;
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
+my $conf = new FS::Conf;
die "Customer deletions not enabled" unless $conf->exists('deletecustomers');
$cgi->param('custnum') =~ /^(\d+)$/;
die "Customer deletions not enabled" unless $conf->exists('deletecustomers');
$cgi->param('custnum') =~ /^(\d+)$/;
-$custnum = $1;
+my $custnum = $1;
+my $new_custnum;
if ( $cgi->param('new_custnum') ) {
$cgi->param('new_custnum') =~ /^(\d+)$/
or die "Illegal new customer number: ". $cgi->param('new_custnum');
if ( $cgi->param('new_custnum') ) {
$cgi->param('new_custnum') =~ /^(\d+)$/
or die "Illegal new customer number: ". $cgi->param('new_custnum');
@@
-34,10
+13,10
@@
if ( $cgi->param('new_custnum') ) {
} else {
$new_custnum = '';
}
} else {
$new_custnum = '';
}
-$cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
+
my
$cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
or die "Customer not found: $custnum";
or die "Customer not found: $custnum";
-$error = $cust_main->delete($new_custnum);
+
my
$error = $cust_main->delete($new_custnum);
if ( $error ) {
$cgi->param('error', $error);
if ( $error ) {
$cgi->param('error', $error);