projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*finally* seems to be working under Mason. sheesh.
[freeside.git]
/
httemplate
/
misc
/
cancel-unaudited.cgi
diff --git
a/httemplate/misc/cancel-unaudited.cgi
b/httemplate/misc/cancel-unaudited.cgi
index
a73b2ce
..
5d3c873
100755
(executable)
--- 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;
$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;
$dbh->rollback;
+ %>
+<!-- mason kludge -->
+<%
&eidiot(@_);
&eidiot(@_);
+} else {
+
+ $dbh->commit or die $dbh->errstr;
+
+ print $cgi->redirect(popurl(2));
}
%>
}
%>