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

(-)a/C4/Letters.pm (-2 / +17 lines)
Lines 617-623 sub _parseletter { Link Here
617
        $letter->{content} =~ s/<<today>>/$todaysdate/go;
617
        $letter->{content} =~ s/<<today>>/$todaysdate/go;
618
    }
618
    }
619
619
620
    while ( my ($field, $val) = each %$values ) {
620
    my @dates = qq|
621
        issues.date_due issues.returndate issues.issuedate issues.lastreneweddate
622
        old_issues.date_due old_issues.returndate old_issues.issuedate old_issues.lastreneweddate
623
    |;
624
625
    while ( my ( $field, $val ) = each %$values ) {
626
627
        # Bug 9084 - Dates in notices should be formatted
628
        # according to dateformat system preference
629
        my $match = "$table.$field";
630
        if ( grep /$match/, @dates ) {
631
632
            # display syspref formatted date, and strip time
633
            my $dateonly = 1;
634
            $val = output_pref( dt_from_string($val), undef, undef, $dateonly );
635
        }
636
621
        my $replacetablefield = "<<$table.$field>>";
637
        my $replacetablefield = "<<$table.$field>>";
622
        my $replacefield = "<<$field>>";
638
        my $replacefield = "<<$field>>";
623
        $val =~ s/\p{P}$// if $val && $table=~/biblio/;
639
        $val =~ s/\p{P}$// if $val && $table=~/biblio/;
624
- 

Return to bug 9084