[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.83, 1.84

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv5688

Modified Files:
	MyAccount.pm 
Log Message:
fix 1.7->1.9 upgrade glitch with self-service where process_payment required "payby" instead of defaulting to CARD, RT#3905

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- MyAccount.pm	17 Mar 2009 21:38:39 -0000	1.83
+++ MyAccount.pm	15 Apr 2009 02:44:11 -0000	1.84
@@ -451,6 +451,7 @@
     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;