'PREP' => qq/Prepaid Card/,
'PREPAY' => qq/Prepaid Card/,
);
+
+ ## Don't show CHEK or DCHK option if ACH is 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 ) {
$options{$payby_option} = $payby_index{$payby_option};
delete $options{'DCRD'} unless $payby eq 'DCRD' || ! exists $options{'CARD'};
delete $options{'DCHK'} unless $payby eq 'DCHK' || ! exists $options{'CHEK'};
+ $payby = (keys %options)[0]
+ if !$payby && %options;
+
HTML::Widgets::SelectLayers->new(
options => \%options,
selected_layer => $payby,