Lines 622-628
sub _parseletter {
Link Here
|
622 |
my $replacedby = defined ($val) ? $val : ''; |
622 |
my $replacedby = defined ($val) ? $val : ''; |
623 |
if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) { |
623 |
if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) { |
624 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
624 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
625 |
my $dateonly = defined $1 ? 1 : 0; |
625 |
my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds. |
626 |
eval { |
626 |
eval { |
627 |
$replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
627 |
$replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
628 |
}; |
628 |
}; |
629 |
- |
|
|