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