From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 28 Dec 2016 20:48:16 +0000 (-0800)
Subject: default payby for new installs, regression from 3.x, RT#73853
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5f4157a6abad950e88e4c2b095f9399d9120183a

default payby for new installs, regression from 3.x, RT#73853
---

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;