-<!-- $Id: cancel-unaudited.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
+<%
my $dbh = dbh;
local $FS::UID::AutoCommit = 0;
my $error = $svc_acct->cancel;
-&myeidiot($error) if $error;
-$error = $svc_acct->delete;
-&myeidiot($error) if $error;
+$error ||= $svc_acct->delete;
+$error ||= $cust_svc->delete;
-$error = $cust_svc->delete;
-&myeidiot($error) if $error;
-
-$dbh->commit or die $dbh->errstr;
+if ( $error ) {
+ $dbh->rollback;
+ %>
+<!-- mason kludge -->
+<%
+ &eidiot($error);
+} else {
-print $cgi->redirect(popurl(2));
+ $dbh->commit or die $dbh->errstr;
-sub myeidiot {
- $dbh->rollback;
- &eidiot(@_);
+ print $cgi->redirect(popurl(2));
}
%>