<& /elements/header.html, mt("Process [_1] payment",$type{$payby}) &> <& /elements/small_custview.html, $cust_main, '', '', popurl(2) . "view/cust_main.cgi" &>

<& /elements/init_overlib.html &> <% ntable('#cccccc') %> <% mt('Payment amount') |h %>

<% $money_char %>

% if ( $fee ) { <% $fee_op %> <% $money_char . $fee %> <% $fee_pkg->pkg |h %> =

<% length($amount) ? $money_char. sprintf('%.2f', ($fee_display eq 'add') ? $amount + $fee : $amount - $fee ) : '' %> <% $fee_display eq 'add' ? 'TOTAL' : 'AVAILABLE' %> % }

% if ( $fee ) { % } <& /elements/tr-select-discount_term.html, 'custnum' => $custnum, 'amount_id' => 'amount', &> % if ( $payby eq 'CARD' ) { % % my( $payinfo, $paycvv, $month, $year ) = ( '', '', '', '' ); % my $payname = $cust_main->first. ' '. $cust_main->getfield('last'); % if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) { % $payinfo = $cust_main->paymask; % $paycvv = $cust_main->paycvv; % ( $month, $year ) = $cust_main->paydate_monthyear; % $payname = $cust_main->payname if $cust_main->payname; % } <% mt('Card number') |h %>

	<% mt('Exp.') |h %>	% for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) { ><% $_ %> % }	/	% my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { ><% $_ %> % }

<% mt('CVV2') |h %> (<% mt('help') |h %>) <% mt('Exact name on card') |h %> <& /elements/location.html, 'object' => $cust_main, #XXX errors??? 'no_asterisks' => 1, 'address1_label' => emt('Card billing address'), &> % } elsif ( $payby eq 'CHEK' ) { % % my( $account, $aba, $branch, $payname, $ss, $paytype, $paystate, % $stateid, $stateid_state ) % = ( '', '', '', '', '', '', '', '', '' ); % if ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) { % $cust_main->paymask =~ /^([\dx]+)\@([\d\.x]*)$/i % or die "unparsable payinfo ". $cust_main->payinfo; % ($account, $aba) = ($1, $2); % ($branch,$aba) = split('\.',$aba) % if $conf->exists('cust_main-require-bank-branch'); % $payname = $cust_main->payname; % $ss = $cust_main->ss; % $paytype = $cust_main->getfield('paytype'); % $paystate = $cust_main->getfield('paystate'); % $stateid = $cust_main->getfield('stateid'); % $stateid_state = $cust_main->getfield('stateid_state'); % } <% mt('Account number') |h %> <% mt('Type') |h %> <% join('', map { qq!$_" } @FS::cust_main::paytypes) %> <% mt('ABA/Routing number') |h %> (<% mt('help') |h %>) % if ( $conf->exists('cust_main-require-bank-branch') ) { <% mt('Branch number') |h %> % } <% mt('Bank name') |h %> % if ( $conf->exists('show_bankstate') ) { <% mt('Bank state') |h %> <& /elements/select-state.html, 'disable_empty' => 0, 'empty_label' => emt('(choose)'), 'state' => $paystate, 'country' => $cust_main->country, 'prefix' => 'pay', &> % } else { % } % if ( $conf->exists('show_ss') ) { <% mt('Account holder') |h %>
<% mt('Social security or tax ID #') |h %> % } else { % } % if ( $conf->exists('show_stateid') ) { <% mt('Account holder') |h %>
<% mt("Driver's license or state ID #") |h %> <% mt('State') |h %> <& /elements/select-state.html, 'disable_empty' => 0, 'empty_label' => emt('(choose)'), 'state' => $stateid_state, 'country' => $cust_main->country, 'prefix' => 'stateid_', &> % } else { % } % } #end CARD/CHEK-specific section <% mt('Remember this information') |h %> % if ( $conf->exists("batch-enable") % || grep $payby eq $_, $conf->config('batch-enable_payby') % ) { % % if ( grep $payby eq $_, $conf->config('realtime-disable_payby') ) { % } else { <% mt('Add to current batch') |h %> % } % } payby ne 'DCRD' ) || ( $payby eq 'CHEK' && $cust_main->payby eq 'CHEK' ) ) ? ' CHECKED' : '' %> NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }"> <% mt("Charge future payments to this [_1] automatically",$type{$payby}) |h %>

<& /elements/footer.html &> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Process payment'); my %type = ( 'CARD' => 'credit card', 'CHEK' => 'electronic check (ACH)', ); $cgi->param('payby') =~ /^(CARD|CHEK)$/ or die "unknown payby ". $cgi->param('payby'); my $payby = $1; $cgi->param('custnum') =~ /^(\d+)$/ or die "illegal custnum ". $cgi->param('custnum'); my $custnum = $1; my $cust_main = qsearchs( 'cust_main', { 'custnum'=>$custnum } ); die "unknown custnum $custnum" unless $cust_main; my $balance = $cust_main->balance; my $payinfo = ''; my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; #false laziness w/selfservice make_payment.html shortcut for one-country my %states = map { $_->state => 1 } qsearch('cust_main_county', { 'country' => $conf->config('countrydefault') || 'US' } ); my @states = sort { $a cmp $b } keys %states; my $fee = ''; my $fee_pkg = ''; my $fee_display = ''; my $fee_op = ''; my $num_payments = scalar($cust_main->cust_pay); #handle old cust_main.pm (remove...) $num_payments = scalar( @{ [ $cust_main->cust_pay ] } ) unless defined $num_payments; if ( $conf->config('manual_process-pkgpart') and ! $conf->exists('manual_process-skip_first') || $num_payments ) { $fee_display = $conf->config('manual_process-display') || 'add'; $fee_op = $fee_display eq 'add' ? '+' : '-'; $fee_pkg = qsearchs('part_pkg', { pkgpart=>$conf->config('manual_process-pkgpart') } ); #well ->unit_setup or ->calc_setup both call for a $cust_pkg # (though ->unit_setup doesn't use it...) $fee = $fee_pkg->option('setup_fee') if $fee_pkg; #in case.. better than dying with a perl traceback } my $amount = ''; if ( $balance > 0 ) { $amount = $balance; $amount += $fee if $fee && $fee_display eq 'subtract'; my $cc_surcharge_pct = $conf->config('credit-card-surcharge-percentage'); $amount += $amount * $cc_surcharge_pct/100 if $cc_surcharge_pct > 0; $amount = sprintf("%.2f", $amount); } my $payunique = "webui-payment-". time. "-$$-". rand() * 2**32;