projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix customer cancellation, sort of a side effect of #2872, fixes #3480, #3481
[freeside.git]
/
httemplate
/
misc
/
cancel_cust.html
diff --git
a/httemplate/misc/cancel_cust.html
b/httemplate/misc/cancel_cust.html
index
5c2e036
..
12c37eb
100644
(file)
--- a/
httemplate/misc/cancel_cust.html
+++ b/
httemplate/misc/cancel_cust.html
@@
-34,16
+34,9
@@
<%init>
<%init>
-my $reasonnum = '';
-my($submit, $class);
-
$cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum';
my $custnum = $1;
$cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum';
my $custnum = $1;
-if ( $cgi->param('error') ) {
- $reasonnum = $cgi->param('reasonnum');
-}
-
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied" unless $curuser->access_right('Cancel customer');
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied" unless $curuser->access_right('Cancel customer');