Fix 3 letter month date format.

This commit is contained in:
Darold Gilles 2012-12-10 22:50:36 +01:00
parent 83e5cbd8ad
commit 78432d6e9b
1 changed files with 4 additions and 4 deletions

View File

@ -2899,10 +2899,10 @@ sub set_date
my $date_format = $self->{DateFormat};
$date_format =~ s/\%y/$year/i;
$date_format =~ s/\%m/$month/i;
$date_format =~ s/\%d/$day/i;
$date_format =~ s/\%M/$Translate{$month}/i;
$date_format =~ s/\%y/$year/;
$date_format =~ s/\%m/$month/;
$date_format =~ s/\%d/$day/;
$date_format =~ s/\%M/$Translate{$month}/;
$date_format =~ s/([^\p{Letter}\p{Digit}]){2,3}/$1/;
$date_format =~ s/^[^\p{Letter}\p{Digit}]+//;