From 5f4157a6abad950e88e4c2b095f9399d9120183a Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 28 Dec 2016 12:48:16 -0800
Subject: [PATCH 1/1] default payby for new installs, regression from 3.x,
 RT#73853

---
 httemplate/view/cust_main/menu.html | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/httemplate/view/cust_main/menu.html b/httemplate/view/cust_main/menu.html
index 6f177c3c4..4d35a0235 100644
--- a/httemplate/view/cust_main/menu.html
+++ b/httemplate/view/cust_main/menu.html
@@ -83,7 +83,10 @@ my $custnum = $cust_main->custnum;
 my $curuser = $FS::CurrentUser::CurrentUser;
 my $conf = FS::Conf->new;
 
-my %payby = map { $_ => 1 } $conf->config('payby');
+my @payby = grep /\w/, $conf->config('payby');
+@payby = (qw( CARD DCRD CHEK DCHK ))
+  unless @payby;
+my %payby = map { $_ => 1 } @payby;
 
 # cached for conditions, to avoid looking it up twice
 my $invoicing_list_emailonly = $cust_main->invoicing_list_emailonly;
-- 
2.11.0