From b84e69be37314917a10e50f6db95441d04bcb6a3 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 15 May 2007 02:36:14 +0000
Subject: [PATCH] default to CARD with no payby from selfservice

---
 FS/FS/ClientAPI/MyAccount.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 9ee770b20..7a83ecee2 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -322,6 +322,7 @@ sub process_payment {
     or return { 'error' => gettext('illegal_text'). " paybatch: ". $p->{'paybatch'} };
   my $paybatch = $1;
 
+  $p->{'payby'} = 'CARD' unless exists($p->{'payby'});
   $p->{'payby'} =~ /^([A-Z]{4})$/
     or return { 'error' => "illegal_payby " . $p->{'payby'} };
   my $payby = $1;
-- 
2.20.1