diff options
| author | ivan <ivan> | 2002-02-10 16:05:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-10 16:05:22 +0000 |
| commit | a4c96748eb6eab29a70f3a944c6520283a635c78 (patch) | |
| tree | 8feec69d7a64f5f7c88aaffae8440c19e506123b /httemplate/misc/cancel-unaudited.cgi | |
| parent | 22a35047ecdffff80110e06cc08fc84f9ddba9b0 (diff) | |
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
*finally* seems to be working under Mason. sheesh.
Diffstat (limited to 'httemplate/misc/cancel-unaudited.cgi')
| -rwxr-xr-x | httemplate/misc/cancel-unaudited.cgi | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/httemplate/misc/cancel-unaudited.cgi b/httemplate/misc/cancel-unaudited.cgi index a73b2ce97..5d3c87316 100755 --- a/httemplate/misc/cancel-unaudited.cgi +++ b/httemplate/misc/cancel-unaudited.cgi @@ -30,15 +30,18 @@ $error = $svc_acct->delete; &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)); } %> |