Lines 654-659
sub _parseletter {
Link Here
|
654 |
my $replacedby = defined ($val) ? $val : ''; |
654 |
my $replacedby = defined ($val) ? $val : ''; |
655 |
if ( $replacedby |
655 |
if ( $replacedby |
656 |
and not $replacedby =~ m|0000-00-00| |
656 |
and not $replacedby =~ m|0000-00-00| |
|
|
657 |
and not $replacedby =~ m|9999-12-31| |
657 |
and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) |
658 |
and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) |
658 |
{ |
659 |
{ |
659 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
660 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
660 |
- |
|
|