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

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

Return to bug 16624