X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=6967a1e1b38afad3697e5ef21ddf1bef97d62f90;hb=371e7a9c14b0feb83a802f624a8dceda5fecbcbf;hp=260d77e6c50ab702deee3a2ccad2a31d8f186956;hpb=09655ec6f1761d464a928f6aab88bb936999df25;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 260d77e6c..6967a1e1b 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
@@ -434,11 +436,13 @@ unless ( $custnum ) {
#$ulen = $svc_acct->dbdef_table->column('username')->length;
$ulen = dbdef->table('svc_acct')->column('username')->length;
$ulen2 = $ulen+2;
+ my $passwordmax = $conf->config('passwordmax') || 8;
+ my $pmax2 = $passwordmax + 2;
print <Username |
|
Password |
-
+ |
(blank to generate) |
END