From 48fdda923dd0c3227190da57ad0fca704725fb43 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 15 Apr 2009 02:44:11 +0000
Subject: [PATCH] fix 1.7->1.9 upgrade glitch with self-service where
 process_payment required "payby" instead of defaulting to CARD, RT#3905

---
 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 564acb1a6..d64c72c0e 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -451,6 +451,7 @@ sub process_payment {
     or return { 'error' => gettext('illegal_text'). " paybatch: ". $p->{'paybatch'} };
   my $paybatch = $1;
 
+  $p->{'payby'} ||= 'CARD';
   $p->{'payby'} =~ /^([A-Z]{4})$/
     or return { 'error' => "illegal_payby " . $p->{'payby'} };
   my $payby = $1;
-- 
2.11.0