Lines 843-855
sub _parseletter {
Link Here
|
843 |
$filter_string_used = $1 || q{}; |
843 |
$filter_string_used = $1 || q{}; |
844 |
$dateonly = $1 unless $dateonly; |
844 |
$dateonly = $1 unless $dateonly; |
845 |
} |
845 |
} |
846 |
eval { |
846 |
my $replacedby_date = eval { |
847 |
$replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
847 |
output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
848 |
}; |
848 |
}; |
849 |
|
849 |
|
850 |
if ( $letter->{ $letter_field } ) { |
850 |
if ( $letter->{ $letter_field } ) { |
851 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby/g; |
851 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby_date/g; |
852 |
$letter->{ $letter_field } =~ s/\Q<<$field$filter_string_used>>\E/$replacedby/g; |
852 |
$letter->{ $letter_field } =~ s/\Q<<$field$filter_string_used>>\E/$replacedby_date/g; |
853 |
} |
853 |
} |
854 |
} |
854 |
} |
855 |
} |
855 |
} |
856 |
- |
|
|