| 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 | -  |  |  |