RT# 82010 Fix bug where selfservice payment form may not appear

diff --git a/fs_selfservice/FS-SelfService/cgi/change_pay.html b/fs_selfservice/FS-SelfService/cgi/change_pay.html
index 9ed621f..2e14151 100644 (file)
--- a/fs_selfservice/FS-SelfService/cgi/change_pay.html
+++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html
@@ -61,6 +61,9 @@
   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,