projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eef42f4
)
report cancellation errors properly
author
ivan
<ivan>
Thu, 22 Jan 2004 00:11:01 +0000
(
00:11
+0000)
committer
ivan
<ivan>
Thu, 22 Jan 2004 00:11:01 +0000
(
00:11
+0000)
httemplate/misc/cust_main-cancel.cgi
patch
|
blob
|
history
diff --git
a/httemplate/misc/cust_main-cancel.cgi
b/httemplate/misc/cust_main-cancel.cgi
index
526e128
..
257c338
100755
(executable)
--- a/
httemplate/misc/cust_main-cancel.cgi
+++ b/
httemplate/misc/cust_main-cancel.cgi
@@
-7,8
+7,8
@@
my $custnum = $1;
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
-my
$error
= $cust_main->cancel;
-eidiot(
$error) if $error
;
+my
@errors
= $cust_main->cancel;
+eidiot(
join(' / ', @errors)) if scalar(@errors)
;
#print $cgi->redirect($p. "view/cust_main.cgi?". $cust_main->custnum);
print $cgi->redirect($p);
#print $cgi->redirect($p. "view/cust_main.cgi?". $cust_main->custnum);
print $cgi->redirect($p);