From f1e474e3ea4c658b9a1f84af108f09a65886055c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 25 Jun 2004 18:28:04 +0000
Subject: [PATCH] fix Pg date parsing of expdate and thus paydate_monthyear
 method and thus bug#862 and i need some sleep

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 07f0a34e5..c3a8ad825 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2174,7 +2174,7 @@ paydate (credit card expiration date for CARD customers)
 
 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 );
-- 
2.11.0