|
Lines 824-831
sub _parseletter {
Link Here
|
| 824 |
$dateonly = $1 unless $dateonly; |
824 |
$dateonly = $1 unless $dateonly; |
| 825 |
} |
825 |
} |
| 826 |
my $replacedby_date = eval { |
826 |
my $replacedby_date = eval { |
| 827 |
output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
827 |
output_pref({ dt => scalar dt_from_string( $replacedby ), dateonly => $dateonly }); |
| 828 |
}; |
828 |
}; |
|
|
829 |
$replacedby_date //= q{}; |
| 829 |
|
830 |
|
| 830 |
if ( $letter->{ $letter_field } ) { |
831 |
if ( $letter->{ $letter_field } ) { |
| 831 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby_date/g; |
832 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby_date/g; |
| 832 |
- |
|
|