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 | |
| 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')
| -rwxr-xr-x | httemplate/misc/bill.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/misc/cancel-unaudited.cgi | 15 | ||||
| -rwxr-xr-x | httemplate/misc/catchall.cgi | 1 | ||||
| -rwxr-xr-x | httemplate/misc/delete-customer.cgi | 1 | ||||
| -rwxr-xr-x | httemplate/misc/link.cgi | 1 | ||||
| -rwxr-xr-x | httemplate/misc/process/link.cgi | 3 |
6 files changed, 18 insertions, 6 deletions
diff --git a/httemplate/misc/bill.cgi b/httemplate/misc/bill.cgi index 8c21fe1bb..6f523a52c 100755 --- a/httemplate/misc/bill.cgi +++ b/httemplate/misc/bill.cgi @@ -26,6 +26,9 @@ unless ( $error ) { #&eidiot($error) if $error; if ( $error ) { +%> +<!-- mason kludge --> +<% &idiot($error); } else { print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum"); 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)); } %> diff --git a/httemplate/misc/catchall.cgi b/httemplate/misc/catchall.cgi index cc4adb88a..9aa84be18 100755 --- a/httemplate/misc/catchall.cgi +++ b/httemplate/misc/catchall.cgi @@ -1,3 +1,4 @@ +<!-- mason kludge --> <% my $conf = new FS::Conf; diff --git a/httemplate/misc/delete-customer.cgi b/httemplate/misc/delete-customer.cgi index 0ed3d0194..5088fef7b 100755 --- a/httemplate/misc/delete-customer.cgi +++ b/httemplate/misc/delete-customer.cgi @@ -1,3 +1,4 @@ +<!-- mason kludge --> <% my $conf = new FS::Conf; diff --git a/httemplate/misc/link.cgi b/httemplate/misc/link.cgi index 81e1bc448..efc762cc5 100755 --- a/httemplate/misc/link.cgi +++ b/httemplate/misc/link.cgi @@ -1,3 +1,4 @@ +<!-- mason kludge --> <% my %link_field = ( diff --git a/httemplate/misc/process/link.cgi b/httemplate/misc/process/link.cgi index af96c0bcd..4b220a867 100755 --- a/httemplate/misc/process/link.cgi +++ b/httemplate/misc/process/link.cgi @@ -31,6 +31,9 @@ unless ($error) { #no errors, so let's view this customer. print $cgi->redirect(popurl(3). "view/cust_pkg.cgi?$pkgnum"); } else { +%> +<!-- mason kludge --> +<% idiot($error); } |