<& /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 &> <& /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')) : 0 ), &> % if ( $conf->exists('part_pkg-term_discounts') ) { <& /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; % } <& /elements/location.html, 'object' => $cust_main->bill_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 ) % = ( '', '', '', '', '', '', '', '', '' ); % 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->config('echeck-country') eq 'CA'; % $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'); % } % % #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 % if ( $conf->exists("batch-enable") % || grep $payby eq $_, $conf->config('batch-enable_payby') % ) { % % if ( grep $payby eq $_, $conf->config('realtime-disable_payby') ) { % } else { % } % }

<% 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 %>
<% mt('Account number') |h %>		<% mt('Type') |h %>	<% join('', map { qq!$_" } FS::cust_payby->paytypes) %>
<% 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 %>
<% 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 $location = $cust_main->bill_location; # no proper error handling on this anyway, but when we have it, # remember to repopulate fields in $location 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;