Lines 847-852
sub _parseletter {
Link Here
|
847 |
my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds. |
847 |
my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds. |
848 |
my $re_dateonly_filter = qr{ $field( \s* \| \s* dateonly\s*)?>> }xms; |
848 |
my $re_dateonly_filter = qr{ $field( \s* \| \s* dateonly\s*)?>> }xms; |
849 |
|
849 |
|
|
|
850 |
eval { |
851 |
$replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
852 |
}; |
853 |
|
850 |
for my $letter_field ( qw( title content ) ) { |
854 |
for my $letter_field ( qw( title content ) ) { |
851 |
my $filter_string_used = q{}; |
855 |
my $filter_string_used = q{}; |
852 |
if ( $letter->{ $letter_field } =~ $re_dateonly_filter ) { |
856 |
if ( $letter->{ $letter_field } =~ $re_dateonly_filter ) { |
Lines 854-862
sub _parseletter {
Link Here
|
854 |
$filter_string_used = $1 || q{}; |
858 |
$filter_string_used = $1 || q{}; |
855 |
$dateonly = $1 unless $dateonly; |
859 |
$dateonly = $1 unless $dateonly; |
856 |
} |
860 |
} |
857 |
eval { |
|
|
858 |
$replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); |
859 |
}; |
860 |
|
861 |
|
861 |
if ( $letter->{ $letter_field } ) { |
862 |
if ( $letter->{ $letter_field } ) { |
862 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby/g; |
863 |
$letter->{ $letter_field } =~ s/\Q<<$table.$field$filter_string_used>>\E/$replacedby/g; |
863 |
- |
|
|