%
%
%my( $cust_main, %options ) = @_;
%my @invoicing_list = @{ $options{'invoicing_list'} };
%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 $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' =>
%
% '',
%
% );
%
% #this should use FS::payby
% 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
% }
|