summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2004-05-01 21:05:48 +0000
committerivan <ivan>2004-05-01 21:05:48 +0000
commitbfb3a80bc91a835513e437b242de366f190e9021 (patch)
tree0e9344470acf356ab0d19b38e0445ed1e3c31fca
parentc4a190357a986db767924b7d6b6aae6039a4630e (diff)
handle missing customer records without erroring out
-rwxr-xr-xhttemplate/search/cust_bill.html8
1 files changed, 6 insertions, 2 deletions
diff --git a/httemplate/search/cust_bill.html b/httemplate/search/cust_bill.html
index 27b147108..3a5db3549 100755
--- a/httemplate/search/cust_bill.html
+++ b/httemplate/search/cust_bill.html
@@ -71,10 +71,14 @@
sub { sprintf('$%.2f', shift->charged ) },
sub { time2str('%b %d %Y', shift->_date ) },
sub { my $cust_main = shift->cust_main;
- $cust_main->get('last'). ', '. $cust_main->first;
+ $cust_main
+ ? $cust_main->get('last'). ', '. $cust_main->first
+ : 'WARNING: can't find cust_main.custnum '.
+ shift->custnum. ' (cust_bill.invnum '.
+ shift->invnum. ')';
},
sub { my $cust_main = shift->cust_main;
- $cust_main->company;
+ $cust_main ? $cust_main->company : '';
},
],
'links' => [