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:41:03 -0500
commita071a37c53fb8c3a742a8e20e4b5166bd10e27c0 (patch)
tree2548a5ea15a424ac59e6a8b41adaf91d9eb463a8
parent8c1504ebde3239669fbc0246e28084557a41631d (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 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"' : '') %> >