View | Details | Raw Unified | Return to bug 16624
Collapse All | Expand All

(-)a/C4/Letters.pm (-4 / +4 lines)
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
- 

Return to bug 16624