projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cc63177
)
fix for bug triggered by nonexistant referring customer numbers
author
ivan
<ivan>
Thu, 24 Apr 2003 23:02:16 +0000
(23:02 +0000)
committer
ivan
<ivan>
Thu, 24 Apr 2003 23:02:16 +0000
(23:02 +0000)
httemplate/edit/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/cust_main.cgi
b/httemplate/edit/cust_main.cgi
index
d8edbcd
..
2b7d8d0
100755
(executable)
--- a/
httemplate/edit/cust_main.cgi
+++ b/
httemplate/edit/cust_main.cgi
@@
-124,9
+124,11
@@
if ( $custnum && ! $conf->exists('editreferrals') ) {
#referring customer
#print qq!<BR><BR>Referring Customer: !;
#referring customer
#print qq!<BR><BR>Referring Customer: !;
-if ( $cust_main->referral_custnum ) {
- my $referring_cust_main =
- qsearchs('cust_main', { custnum => $cust_main->referral_custnum } );
+my $referring_cust_main = '';
+if ( $cust_main->referral_custnum
+ and $referring_cust_main =
+ qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
+) {
print '<BR><BR>Referring Customer: <A HREF="'. popurl(1). '/cust_main.cgi?'.
$cust_main->referral_custnum. '">'.
$cust_main->referral_custnum. ': '.
print '<BR><BR>Referring Customer: <A HREF="'. popurl(1). '/cust_main.cgi?'.
$cust_main->referral_custnum. '">'.
$cust_main->referral_custnum. ': '.