%
my( $cust_main ) = @_;
my $conf = new FS::Conf;
my $payby_default = $conf->config('payby-default');
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' =>
'',
);
tie my %options, 'Tie::IxHash',
'CARD' => 'Credit card',
'CHEK' => 'Electronic check',
'LECB' => 'Phone bill billing',
'BILL' => 'Billing',
'COMP' => 'Complimentary',
;
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} || 'CARD',
'layer_callback' => sub { my $layer = shift; $payby{$layer}; },
);
%>
<%= $widget->html %>
<%= $r %> required fields
<% } %>
|