From: Mitch Jackson <mitch@freeside.biz>
Date: Mon, 28 Jan 2019 08:22:17 +0000 (-0500)
Subject: RT# 82010 Fix bug where selfservice payment form may not appear
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=437c89c9c88979a4b3999689ded7a862b69156df

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 2b3142f4a..e4f412cb0 100644
--- a/fs_selfservice/FS-SelfService/cgi/change_pay.html
+++ b/fs_selfservice/FS-SelfService/cgi/change_pay.html
@@ -60,6 +60,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,