1 <% header("Customer cancelled") %>
2 <SCRIPT TYPE="text/javascript">
3 window.top.location.reload();
11 if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
13 $ban = $cgi->param('ban');
15 my($query) = $cgi->keywords;
16 $query =~ /^(\d+)$/ || die "Illegal custnum";
20 #false laziness w/process/cancel_pkg.html
23 my $reasonnum = $cgi->param('reasonnum');
24 $reasonnum =~ /^(-?\d+)$/ || die "Illegal reasonnum";
27 if ($reasonnum == -1) {
29 'typenum' => scalar( $cgi->param('newreasonnumT') ),
30 'reason' => scalar( $cgi->param('newreasonnum' ) ),
36 my $cust_main = qsearchs( {
37 'table' => 'cust_main',
38 'hashref' => { 'custnum' => $custnum },
39 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
42 warn "cancelling $cust_main";
43 my @errors = $cust_main->cancel(
45 'reason' => $reasonnum,
47 my $error = join(' / ', @errors) if scalar(@errors);
50 $cgi->param('error', $error);
51 print $cgi->redirect(popurl(2). "cancel_pkg.html?". $cgi->query_string );