diff options
| -rwxr-xr-x | httemplate/misc/cancel-unaudited.cgi | 18 | 
1 files changed, 1 insertions, 17 deletions
| diff --git a/httemplate/misc/cancel-unaudited.cgi b/httemplate/misc/cancel-unaudited.cgi index f1fb15341..11cde968d 100755 --- a/httemplate/misc/cancel-unaudited.cgi +++ b/httemplate/misc/cancel-unaudited.cgi @@ -17,30 +17,14 @@ die "Unknown svcnum!" unless $cust_svc;      qq!pkgnum"> package</A> instead.!)     if $cust_svc->pkgnum ne '' && $cust_svc->pkgnum ne '0'; -my $svc_x = $cust_svc->svc_x; - -local $SIG{HUP} = 'IGNORE'; -local $SIG{INT} = 'IGNORE'; -local $SIG{QUIT} = 'IGNORE'; -local $SIG{TERM} = 'IGNORE'; -local $SIG{TSTP} = 'IGNORE'; - -local $FS::UID::AutoCommit = 0; - -my $error = $svc_x->cancel; -$error ||= $svc_x->delete; -$error ||= $cust_svc->delete; +my $error = $cust_svc->cancel;  if ( $error ) { -  $dbh->rollback;    %>  <!-- mason kludge -->  <%    &eidiot($error);  } else { - -  $dbh->commit or die $dbh->errstr; -    print $cgi->redirect(popurl(2));  } | 
