${r}City | | ${r}State/Country | | !;
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 |
!;
@@ -356,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)) {
@@ -404,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 ) {
@@ -428,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