diff options
| author | ivan <ivan> | 2004-06-25 18:28:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-06-25 18:28:04 +0000 |
| commit | f1e474e3ea4c658b9a1f84af108f09a65886055c (patch) | |
| tree | fe86528c5d4afdcbe678bebe332a6eef4fec9a36 /FS | |
| parent | 83ce2076d59c3c27beb78dd5892b2da99fd60ec1 (diff) | |
fix Pg date parsing of expdate and thus paydate_monthyear method and thus bug#862 and i need some sleep
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 ); |