From: ivan Date: Fri, 25 Jun 2004 18:28:04 +0000 (+0000) Subject: fix Pg date parsing of expdate and thus paydate_monthyear method and thus bug#862... X-Git-Tag: BEFORE_FINAL_MASONIZE~1010 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=f1e474e3ea4c658b9a1f84af108f09a65886055c fix Pg date parsing of expdate and thus paydate_monthyear method and thus bug#862 and i need some sleep --- 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 );