fix for bug triggered by nonexistant referring customer numbers

diff --git a/Makefile b/Makefile
index 59ec28c..dfd3c06 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -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 (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: !;
-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. ': '.