From c8d7489992fc09eb8903f8071de77ae79e343e02 Mon Sep 17 00:00:00 2001
From: Christopher Burger <burgerc@freeside.biz>
Date: Thu, 27 Dec 2018 14:39:04 -0500
Subject: [PATCH] RT# 74537 - fixes error where paytype is blank in V3

---
 fs_selfservice/FS-SelfService/cgi/change_pay.html | 4 ++--
 fs_selfservice/FS-SelfService/cgi/check.html      | 6 ++++++
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/fs_selfservice/FS-SelfService/cgi/change_pay.html b/fs_selfservice/FS-SelfService/cgi/change_pay.html
index e272669dc..2b3142f4a 100644
--- a/fs_selfservice/FS-SelfService/cgi/change_pay.html
+++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html
@@ -39,8 +39,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"' : '') %> >
-- 
2.11.0