%
my( $cust_main ) = @_;
my $conf = new FS::Conf;
my $payby_default = $conf->config('payby-default');
my @payby = grep /\w/, $conf->config('payby');
#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP ))
@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP ))
unless @payby;
if ( $payby_default eq 'HIDE' ) {
$cust_main->payby('BILL') unless $cust_main->payby;
%>
<% } else {
my @invoicing_list = $cust_main->invoicing_list;
my $r = qq!* !;
%>
Billing information
<%= &ntable("#cccccc") %>
<%=$r%>Billing type |
<%
my($payby, $payinfo, $payname)=(
$cust_main->payby,
$cust_main->payinfo,
$cust_main->payname,
);
my( $account, $aba ) = split('@', $payinfo);
my $disabled = 'DISABLED style="background-color: #dddddd"';
my $text_disabled = 'style="color: #999999"';
if ( $payby =~ /^(CARD|DCRD)$/ && cardtype($payinfo) =~ /^(Switch|Solo)$/ ) {
$disabled = 'style="background-color: #ffffff"';
$text_disabled = 'style="color: #000000";'
}
my %payby = (
'CARD' =>
'',
'CHEK' =>
'',
'LECB' =>
'',
'BILL' =>
'',
'COMP' =>
'',
'CASH' =>
'',
'WEST' =>
'',
'MCRD' =>
'',
);
my %allopt = (
'CARD' => 'Credit card',
'CHEK' => 'Electronic check',
'LECB' => 'Phone bill billing',
'BILL' => 'Billing',
'CASH' => 'Cash', # initial payment, then billing',
'WEST' => 'Western Union', # initial payment, then billing',
'MCRD' => 'Manual credit card', # initial payment, then billing',
'COMP' => 'Complimentary',
);
if ( $cust_main->custnum ) { #don't offer CASH/WEST/MCRD initial payment types
# when editing customer
delete $allopt{$_} for qw(CASH WEST MCRD);
}
tie my %options, 'Tie::IxHash',
map { $_ => $allopt{$_} }
grep { exists $allopt{$_} }
@payby;
my %payby2option = (
( map { $_ => $_ } keys %options ),
'DCRD' => 'CARD',
'DCHK' => 'CHEK',
);
my $widget = new HTML::Widgets::SelectLayers(
'options' => \%options,
#'form_name' => 'dummy',
#'form_action' => 'nothingyet',
#chops bottom of page in IE# 'under_position' => 'absolute',
'html_between' => '
',
'selected_layer' => $payby2option{$payby || $payby_default || $payby[0] },
'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
);
%>
<%= $widget->html %>
<%= $r %> required fields
<% } %>
|