diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2017-07-27 12:30:25 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2017-08-02 14:12:37 -0400 |
| commit | f07c85e5f8e2ce612d71fea145da63f61ae6ba2f (patch) | |
| tree | cb4182528864c83ef674a86088028af3c64d198a /FS/FS/ClientAPI | |
| parent | 3c41e68629274c5ea6ff31c0d88e6d3fc6b9af8b (diff) | |
RT# 74537 - added check for config option selfservice-ACH_info_readonly to deletepayby method
Diffstat (limited to 'FS/FS/ClientAPI')
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 2b4d52d..5c86b78 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1748,8 +1748,13 @@ sub delete_payby { }) or return { 'error' => 'unknown custpaybynum '. $p->{'custpaybynum'} }; - return { 'error' => $cust_payby->delete }; - + my $conf = new FS::Conf; + if (($cust_payby->payby eq "DCHK" || $cust_payby->payby eq "CHEK") && $conf->exists('selfservice-ACH_info_readonly')) { + return { 'error' => "Sorry you do not have permission to delete bank information." }; + } + else { + return { 'error' => $cust_payby->delete }; + } } sub cancel { |