X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=9588dcb3aa53fe12da8a867b45ebfc6f5843b609;hp=0a10c7ce1fa53d4dd102d0539bb12a2c4756497d;hb=cf16b23820da69e3c8d0156ae27e21c635bf1ec5;hpb=ef2e9712fbb5b4b1c5a681530c202498204220d8
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 0a10c7ce1..9588dcb3a 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -1,5 +1,5 @@
<%
-#
+#
use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum
$last $first $ss $company $address1 $address2 $city $zip
@@ -133,19 +133,21 @@ if ( $custnum && ! $conf->exists('editreferrals') ) {
#referring customer
-print qq!
Referring Customer: !;
+#print qq!
Referring Customer: !;
if ( $cust_main->referral_custnum ) {
my $referring_cust_main =
qsearchs('cust_main', { custnum => $cust_main->referral_custnum } );
- print 'referral_custnum. '">'.
$cust_main->referral_custnum. ': '.
( $referring_cust_main->company
|| $referring_cust_main->last. ', '. $referring_cust_main->first ).
'';
+} elsif ( ! $conf->exists('disable_customer_referrals') ) {
+ print '
Referring customer number: ';
} else {
- print '(none)';
+ print '';
}
# contact info
@@ -183,7 +185,7 @@ $cust_main->country( $countrydefault ) unless $cust_main->country;
$cust_main->state( $conf->config('statedefault') || 'CA' )
unless $cust_main->state || $cust_main->country ne 'US';
foreach ( sort {
- ( $a->country eq $countrydefault ) <=> ( $b->country eq $countrydefault )
+ ( $b->country eq $countrydefault ) <=> ( $a->country eq $countrydefault )
or $a->country cmp $b->country
or $a->state cmp $b->state
or $a->county cmp $b->county
@@ -345,7 +347,8 @@ print qq!>Tax Exempt!;
print qq!