From: ivan Date: Tue, 20 Apr 2004 01:23:06 +0000 (+0000) Subject: accept expiration dates in the same format they are output... X-Git-Tag: BEFORE_FINAL_MASONIZE~1141 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=953a05aefc990758f185d5284cdcbe8566b0229d accept expiration dates in the same format they are output... --- diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index ad5b0df1f..34dfac5bf 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -895,7 +895,7 @@ sub check { my( $m, $y ); if ( $self->paydate =~ /^(\d{1,2})[\/\-](\d{2}(\d{2})?)$/ ) { ( $m, $y ) = ( $1, length($2) == 4 ? $2 : "20$2" ); - } elsif ( $self->paydate =~ /^(20)?(\d{2})[\/\-](\d{2})[\/\-]\d+$/ ) { + } elsif ( $self->paydate =~ /^(20)?(\d{2})[\/\-](\d{1,2})[\/\-]\d+$/ ) { ( $m, $y ) = ( $3, "20$2" ); } else { return "Illegal expiration date: ". $self->paydate;