X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fpayment.cgi;h=a3db58f723f993289f28b417f23947614a9e062c;hb=a181b24a0050bfca2ec220421f4cbc347533119f;hp=7afdfd1598d56c79e068ae9c5485fc575635d9b6;hpb=768ab093771b3305a67c9d929b461ef777ecdad8;p=freeside.git
diff --git a/httemplate/misc/payment.cgi b/httemplate/misc/payment.cgi
index 7afdfd159..a3db58f72 100644
--- a/httemplate/misc/payment.cgi
+++ b/httemplate/misc/payment.cgi
@@ -33,23 +33,108 @@
&>
% }
+% 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 {
+
+
+ <% mt('Add to current batch') |h %> |
+
+
+ |
+
+
+% }
+% }
+
+% unless ($disallow_no_auto_apply) {
+% # false laziness with edit/cust_pay.cgi
+
+
+ <% mt('Auto-apply to invoices') |h %> |
+
+
+ |
+
+
+% # 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)',
+&>
+
+
+
+
+>
+
+
% 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;
-%
-% #auto-fill with the highest weighted match
-% my ($cust_payby) = $cust_main->cust_payby('CARD','DCRD');
-% if ($cust_payby) {
-% $payinfo = $cust_payby->paymask;
-% $paycvv = $cust_payby->paycvv;
-% ( $month, $year ) = $cust_payby->paydate_monthyear;
-% $payname = $cust_payby->payname if $cust_payby->payname;
-% $location = $cust_payby->cust_location || $location;
-% $auto = 1 if $cust_payby->payby eq 'CARD';
-% }
<% mt('Card number') |h %> |
@@ -104,22 +189,6 @@
% my( $account, $aba, $branch, $payname, $ss, $paytype, $paystate,
% $stateid, $stateid_state )
% = ( '', '', '', '', '', '', '', '', '' );
-% my ($cust_payby) = $cust_main->cust_payby('CHEK','DCHK');
-% if ($cust_payby) {
-% $cust_payby->paymask =~ /^([\dx]+)\@([\d\.x]*)$/i
-% or die "unparsable paymask ". $cust_payby->paymask;
-% ($account, $aba) = ($1, $2);
-% ($branch,$aba) = split('\.',$aba)
-% if $conf->config('echeck-country') eq 'CA';
-% $payname = $cust_payby->payname;
-% $paytype = $cust_payby->getfield('paytype');
-% $paystate = $cust_payby->getfield('paystate');
-% $auto = 1 if $cust_payby->payby eq 'CHEK';
-% # these values aren't in cust_payby, but maybe should be...
-% $ss = $cust_main->ss;
-% $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'
@@ -210,46 +279,50 @@
-
+ |
<% 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 %>
- |
-
-
-% }
-% }
-
-
+ |
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.html &>
+<%once>
+
+my %weight = (
+ 1 => 'Primary',
+ 2 => 'Secondary',
+ 3 => 'Tertiary',
+ 4 => 'Fourth',
+ 5 => 'Fifth',
+ 6 => 'Sixth',
+ 7 => 'Seventh',
+);
+
+%once>
<%init>
die "access denied"