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/search/cust_pay.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/search/cust_pay.cgi')
| -rwxr-xr-x | httemplate/search/cust_pay.cgi | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/httemplate/search/cust_pay.cgi b/httemplate/search/cust_pay.cgi index 8ebd65413..b5bdf8296 100755 --- a/httemplate/search/cust_pay.cgi +++ b/httemplate/search/cust_pay.cgi @@ -13,11 +13,17 @@ if (0) { # my $invnum = $cust_bill[0]->invnum; # print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum"); #redirect } elsif ( scalar(@cust_pay) == 0 ) { +%> +<!-- mason kludge --> +<% idiot("Check # not found."); #exit; } else { my $total = scalar(@cust_pay); my $s = $total > 1 ? 's' : ''; +%> +<!-- mason kludge --> +<% print header("Check # Search Results", menubar( 'Main Menu', popurl(2) )), "$total matching check$s found<BR>", &table(), <<END; |