@@ -, +, @@ the notice. datetime format preferred date format. --- C4/Letters.pm | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -638,6 +638,14 @@ sub _parseletter { #but excludes items. Removed unneeded global and lookahead. my $replacedby = defined ($val) ? $val : ''; + if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) { + # If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date + my $dateonly = defined $1 ? 1 : 0; + eval { + $replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly }); + }; + warn "$replacedby seems to be a date but an error occurs on generating it ($@)" if $@; + } ($letter->{title} ) and do { $letter->{title} =~ s/$replacetablefield/$replacedby/g; $letter->{title} =~ s/$replacefield/$replacedby/g; --