From: Christopher Burger <burgerc@freeside.biz>
Date: Thu, 27 Dec 2018 19:39:04 +0000 (-0500)
Subject: RT# 74537 - fixes error where paytype is blank in V3
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a071a37c53fb8c3a742a8e20e4b5166bd10e27c0

RT# 74537 - fixes error where paytype is blank in V3
---

diff --git a/fs_selfservice/FS-SelfService/cgi/change_pay.html b/fs_selfservice/FS-SelfService/cgi/change_pay.html
index 75ceee8f7..9ed621f9a 100644
--- a/fs_selfservice/FS-SelfService/cgi/change_pay.html
+++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html
@@ -40,8 +40,8 @@
                     );
 
   ## Don't show CHEK or DCHK option if ACH is read only
-  delete( $payby_index{'CHEK'} ) unless !$ach_read_only;
-  delete( $payby_index{'DCHK'} ) unless !$ach_read_only;
+  delete( $payby_index{'CHEK'} ) if ($ach_read_only && $payby ne "CHEK");
+  delete( $payby_index{'DCHK'} ) if ($ach_read_only && $payby ne "DCHK");
 
   tie my %options, 'Tie::IxHash', ();
   foreach my $payby_option ( grep { exists( $payby_index{$_} ) } @paybys ) {
diff --git a/fs_selfservice/FS-SelfService/cgi/check.html b/fs_selfservice/FS-SelfService/cgi/check.html
index 17635c306..b6fead12a 100644
--- a/fs_selfservice/FS-SelfService/cgi/check.html
+++ b/fs_selfservice/FS-SelfService/cgi/check.html
@@ -1,3 +1,9 @@
+<%=
+  $OUT = '';
+  if ($ach_read_only) {
+    $OUT .= qq!<TR><TD COLSPAN=2><FONT COLOR="red">You only have read only access</TD></TR>!;
+  }
+%>
 <TR>
   <TD ALIGN="right">Account&nbsp;type</TD>
   <TD <%= ($ach_read_only ? ' BGCOLOR="#ffffff"' : '') %> >