diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2017-07-10 09:52:54 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2017-07-10 09:58:28 -0400 |
| commit | eb8fe191d66b2b6bf7e113049047968c8147fb66 (patch) | |
| tree | 5c4602aaff885578e2cc787c27d0d4a05f3f01e7 /fs_selfservice/FS-SelfService/cgi/change_pay.html | |
| parent | c1e554f22e4a4cb4a88461ad1542786b6f949f07 (diff) | |
RT# 74537 - Added new selfservice config option to make ECHECK readonly on selfservice, updated selfservice and NGselfservice to look for this option
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/change_pay.html')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/change_pay.html | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/change_pay.html b/fs_selfservice/FS-SelfService/cgi/change_pay.html index 6898dc7f8..e38ba762d 100644 --- a/fs_selfservice/FS-SelfService/cgi/change_pay.html +++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html @@ -37,6 +37,11 @@ 'PREP' => qq/Prepaid Card/, 'PREPAY' => qq/Prepaid Card/, ); + + ## 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; + tie my %options, 'Tie::IxHash', (); foreach my $payby_option ( grep { exists( $payby_index{$_} ) } @paybys ) { $options{$payby_option} = $payby_index{$payby_option}; @@ -55,6 +60,9 @@ delete $options{'DCRD'} unless $payby eq 'DCRD' || ! exists $options{'CARD'}; delete $options{'DCHK'} unless $payby eq 'DCHK' || ! exists $options{'CHEK'}; + ## setting payby to default to layer if only one. should we always display first layer? + if (keys %options == 1) { @p = keys %options; $payby = $p[0]; } + HTML::Widgets::SelectLayers->new( options => \%options, selected_layer => $payby, |