[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.53.2.3, 1.53.2.4

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail:/home/jeff/freeside-1.7/FS/FS/ClientAPI

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	MyAccount.pm 
Log Message:
default to CARD with no payby from selfservice

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.53.2.3
retrieving revision 1.53.2.4
diff -u -d -r1.53.2.3 -r1.53.2.4
--- MyAccount.pm	29 Apr 2007 23:30:51 -0000	1.53.2.3
+++ MyAccount.pm	15 May 2007 02:36:14 -0000	1.53.2.4
@@ -322,6 +322,7 @@
     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;