summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Burger <burgerc@freeside.biz>2018-12-27 14:39:04 -0500
committerChristopher Burger <burgerc@freeside.biz>2018-12-27 14:39:04 -0500
commitc8d7489992fc09eb8903f8071de77ae79e343e02 (patch)
tree9369a28f29653a378af1abf06923bb3e13cf346c
parenta7cd032eb8714905311070b4dd25a21ee42102ee (diff)
RT# 74537 - fixes error where paytype is blank in V3
-rw-r--r--fs_selfservice/FS-SelfService/cgi/change_pay.html4
-rw-r--r--fs_selfservice/FS-SelfService/cgi/check.html6
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"' : '') %> >