<& /elements/header-cust_main.html, view=>'payment_history', cust_main=>$cust_main &>

<% emt("Process [_1] payment",$type{$payby}) %>

<& /elements/init_overlib.html &> <& /elements/tr-amount_fee.html, 'amount' => $amount, 'process-pkgpart' => scalar($conf->config('manual_process-pkgpart', $cust_main->agentnum)), 'process-display' => scalar($conf->config('manual_process-display')), 'process-skip_first' => $conf->exists('manual_process-skip_first'), 'num_payments' => scalar($cust_main->cust_pay), 'surcharge_percentage' => ( $payby eq 'CARD' ? scalar($conf->config('credit-card-surcharge-percentage', $cust_main->agentnum)) : 0 ), &> % if ( $conf->exists('part_pkg-term_discounts') ) { <& /elements/tr-select-discount_term.html, 'custnum' => $custnum, 'amount_id' => 'amount', &> % } % my $disallow_no_auto_apply = 0; % if ( $conf->exists("batch-enable") % || grep $payby eq $_, $conf->config('batch-enable_payby') % ) { % % if ( grep $payby eq $_, $conf->config('realtime-disable_payby') ) { % $disallow_no_auto_apply = 1; % } else { % } % } % unless ($disallow_no_auto_apply) { % # false laziness with edit/cust_pay.cgi % # this can go away if no_auto_apply handling gets added to batch payment processing % } % #can't quite handle CARD/CHEK on the same page yet, but very close % #does it make sense from a UI/usability perspective? % % my @cust_payby = (); % if ( $payby eq 'CARD' ) { % @cust_payby = $cust_main->cust_payby('CARD','DCRD'); % } elsif ( $payby eq 'CHEK' ) { % @cust_payby = $cust_main->cust_payby('CHEK','DCHK'); % } else { % die "unknown payby $payby"; % } % % my $custpaybynum = length(scalar($cgi->param('custpaybynum'))) % ? scalar($cgi->param('custpaybynum')) % : scalar(@cust_payby) && $cust_payby[0]->custpaybynum; <& /elements/tr-select-cust_payby.html, 'cust_payby' => \@cust_payby, 'curr_value' => $custpaybynum, 'onchange' => 'cust_payby_changed(this)', &>
   <% mt('Add to current batch') |h %>
<% mt('Auto-apply to invoices') |h %>

> % my $auto = 0; % if ( $payby eq 'CARD' ) { % % my( $payinfo, $paycvv, $month, $year ) = ( '', '', '', '' ); % my $payname = $cust_main->first. ' '. $cust_main->getfield('last'); % my $location = $cust_main->bill_location; <& /elements/location.html, 'object' => $location, 'no_asterisks' => 1, 'address1_label' => emt('Card billing address'), &> % } elsif ( $payby eq 'CHEK' ) { % % my( $account, $aba, $branch, $payname, $ss, $paytype, $paystate, % $stateid, $stateid_state ) % = ( '', '', '', '', '', '', '', '', '' ); % % #false laziness w/{edit,view}/cust_main/billing.html % my $routing_label = $conf->config('echeck-country') eq 'US' % ? 'ABA/Routing number' % : 'Routing number'; % my $routing_size = $conf->config('echeck-country') eq 'CA' ? 4 : 10; % my $routing_maxlength = $conf->config('echeck-country') eq 'CA' ? 3 : 9; % if ( $conf->config('echeck-country') eq 'CA' ) { % } % if ( $conf->exists('show_bankstate') ) { % } else { % } % if ( $conf->exists('show_ss') ) { % } else { % } % if ( $conf->exists('show_stateid') ) { % } else { % } % } #end CARD/CHEK-specific section
<% mt('Card number') |h %>
<% mt('Exp.') |h %> /
<% mt('CVV2') |h %> (<% mt('help') |h %>)
<% mt('Exact name on card') |h %>
<% mt('Account number') |h %> <% mt('Type') |h %>
<% mt($routing_label) |h %> (<% mt('help') |h %>)
<% mt('Branch number') |h %>
<% mt('Bank name') |h %>
<% mt('Bank state') |h %> <& /elements/select-state.html, 'disable_empty' => 0, 'empty_label' => emt('(choose)'), 'state' => $paystate, 'country' => $cust_main->country, 'prefix' => 'pay', &>
<% mt('Account holder') |h %>
<% mt('Social security or tax ID #') |h %>
<% 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_', &>
<% mt('Remember this information') |h %>
NAME="auto" VALUE="1" onClick="if (this.checked) { document.OneTrueForm.save.checked=true; }"> <% mt("Charge future payments to this [_1] automatically",$type{$payby}) |h %> % if ( @cust_payby ) { <% mt('as') |h %> % } else { % }

<& /elements/footer-cust_main.html &> <%once> my %weight = ( 1 => 'Primary', 2 => 'Secondary', 3 => 'Tertiary', 4 => 'Fourth', 5 => 'Fifth', 6 => 'Sixth', 7 => 'Seventh', ); <%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; #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 $amount = ''; if ( $balance > 0 ) { # when configured to do so, amount will only auto-fill with balance # if balance represents a single invoice $amount = $balance unless $conf->exists('manual_process-single_invoice_amount') && ($cust_main->open_cust_bill != 1); } my $payunique = "webui-payment-". time. "-$$-". rand() * 2**32;