freeside/FS/FS cust_main.pm,1.155,1.156

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv23427

Modified Files:
	cust_main.pm 
Log Message:
fix Pg date parsing of expdate and thus paydate_monthyear method and thus bug#862 and i need some sleep

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -d -r1.155 -r1.156
--- cust_main.pm	10 Jun 2004 12:31:31 -0000	1.155
+++ cust_main.pm	25 Jun 2004 18:28:04 -0000	1.156
@@ -2174,7 +2174,7 @@
 
 sub paydate_monthyear {
   my $self = shift;
-  if ( $self->paydate  =~ /^(\d{4})-(\d{2})-\d{2}$/ ) { #Pg date format
+  if ( $self->paydate  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #Pg date format
     ( $2, $1 );
   } elsif ( $self->paydate =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
     ( $1, $3 );