X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=eeceed88929700d2cad2abd5948201abb9ef0bd4;hb=c2a0b1b8e9d437434e326a3b573d7134c5697213;hp=d8edbcd8ea995ad75023249b307c53748db6ed9b;hpb=030bef17868168b05a67d9f5866b55da1bb9439c;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index d8edbcd8e..eeceed889 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!
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 '
Referring Customer: '.
$cust_main->referral_custnum. ': '.
@@ -483,7 +485,7 @@ unless ( $custnum ) {
foreach my $part_pkg ( @part_pkg ) {
print qq!