projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
proper cdr_batch table, RT#6386
[freeside.git]
/
httemplate
/
misc
/
cust_main-cancel.cgi
diff --git
a/httemplate/misc/cust_main-cancel.cgi
b/httemplate/misc/cust_main-cancel.cgi
index
2f9c380
..
009a7d4
100755
(executable)
--- a/
httemplate/misc/cust_main-cancel.cgi
+++ b/
httemplate/misc/cust_main-cancel.cgi
@@
-6,6
+6,9
@@
</HTML>
<%init>
</HTML>
<%init>
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer');
+
my $custnum;
my $ban = '';
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
my $custnum;
my $ban = '';
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
@@
-48,7
+51,7
@@
my $error = join(' / ', @errors) if scalar(@errors);
if ( $error ) {
$cgi->param('error', $error);
if ( $error ) {
$cgi->param('error', $error);
- print $cgi->redirect(popurl(
2). "cancel_pkg
.html?". $cgi->query_string );
+ print $cgi->redirect(popurl(
1). "cancel_cust
.html?". $cgi->query_string );
}
</%init>
}
</%init>