[freeside-commits] branch master updated. fba604e65e810922ce0269cc887b5c57ce135352

[Christopher Burger]

The branch, master has been updated
       via  fba604e65e810922ce0269cc887b5c57ce135352 (commit)
      from  ee27cd8eea7b135db2ba8a6b1a6ac8933171d9d0 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit fba604e65e810922ce0269cc887b5c57ce135352
Author: Christopher Burger <burgerc at freeside.biz>
Date:   Tue Oct 10 10:04:07 2017 -0400

    RT# 77193 - fixed error updating ACH payby thru selfservice, not saving changed account or aba number on V4.  Now works

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index e28aa18..ce887ef 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1707,6 +1707,16 @@ sub update_payby {
   my($context, $session, $custnum) = _custoragent_session_custnum($p);
   return { 'error' => $session } if $context eq 'error';
 
+  if ($p->{'payby'} eq 'CHEK') {
+     $p->{'payinfo1'} =~ /^([\dx]+)$/
+       or return { 'error' => "illegal account number ". $p->{'payinfo1'} };
+     my $payinfo1 = $1;
+      $p->{'payinfo2'} =~ /^([\dx\.]+)$/ # . turned on by echeck-country CA ?
+       or return { 'error' => "illegal ABA/routing number ". $p->{'payinfo2'} };
+     my $payinfo2 = $1;
+     $p->{'payinfo'} = $payinfo1. '@'. $payinfo2;
+   }
+
   my $cust_payby = qsearchs('cust_payby', {
                               'custnum'      => $custnum,
                               'custpaybynum' => $p->{'custpaybynum'},

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/ClientAPI/MyAccount.pm |   10 ++++++++++
 1 file changed, 10 insertions(+)