X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=d3251c2b9a8797f9abd04b1afe491f0d95e07e23;hb=5e25b996982d42eb2587ec54db0d5b39508aa730;hp=cfd99c8247bb6de679198ba56399ad59ab5921f5;hpb=57a1412bb70af3fdd7e3acd9e487c66260105776;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index cfd99c824..d3251c2b9 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
@@ -345,7 +347,8 @@ print qq!>Tax Exempt!;
print qq!
invoicing_list;
print qq! CHECKED!
- if ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list;
+ if ( ! @invoicing_list && ! $conf->exists('disablepostalinvoicedefault') )
+ || grep { $_ eq 'POST' } @invoicing_list;
print qq!>Postal mail invoice |
!;
$invoicing_list = join(', ', grep { $_ ne 'POST' } @invoicing_list );
print qq!Email invoice |
!;
@@ -361,12 +364,12 @@ print "Billing type |
",
%payby = (
'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
- 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", "12-2037"). qq!
${r}Attention
!,
+ 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", "12-2037"). qq!
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"),
);
%paybychecked = (
'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
- 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", $cust_main->paydate). qq!
${r}Attention
!,
+ 'BILL' => qq!Billing
P.O.
${r}Exp !. expselect("BILL", $cust_main->paydate). qq!
Attention
!,
'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate),
);
for (qw(CARD BILL COMP)) {
@@ -409,7 +412,7 @@ unless ( $custnum ) {
#eslaf
my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
- qsearch( 'part_pkg', {} );
+ qsearch( 'part_pkg', { 'disabled' => '' } );
if ( @part_pkg ) {
@@ -433,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