diff options
author | ivan <ivan> | 2003-04-24 23:01:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-04-24 23:01:10 +0000 |
commit | c2bceeda935d43847b8db72a39f5942d2ca82f1a (patch) | |
tree | 16038e0054df26ab16157f3dce1af5786e385816 | |
parent | cf43a3098f2b21844c341ac44d02ee4a3277f4a8 (diff) |
fix for bug triggered by nonexistant referring customer numbers
-rw-r--r-- | Makefile | 3 | ||||
-rwxr-xr-x | httemplate/edit/cust_main.cgi | 8 |
2 files changed, 7 insertions, 4 deletions
@@ -180,7 +180,8 @@ upload-docs: forcehtmlman ssh cleanwhisker.420.am rm -rf /var/www/www.sisd.com/freeside/docs scp -pr httemplate/docs cleanwhisker.420.am:/var/www/www.sisd.com/freeside/docs -release: upload-docs update-webdemo +#release: upload-docs update-webdemo +release: upload-docs cd /home/ivan/freeside1.4 #cvs tag ${TAG} cvs tag -F ${TAG} diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index 7065268..df7a8d6 100755 --- 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: !; -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. ': '. |