X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=c3a8ad8254b252a40b4e1883ed038d480f846ecf;hp=07f0a34e5975b3da02eb461a2450a4f9e03c98ba;hb=f1e474e3ea4c658b9a1f84af108f09a65886055c;hpb=83ce2076d59c3c27beb78dd5892b2da99fd60ec1 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 );