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

(-)a/C4/Letters.pm (-1 / +14 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
    my @dates = qq|  issues.date_due  issues.date  old_issues.date_due
621
        old_issues.returndate old_issues.issuedate |;
622
620
    while ( my ($field, $val) = each %$values ) {
623
    while ( my ($field, $val) = each %$values ) {
624
625
        # Bug 9084 - Dates in notices should be formatted 
626
        # according to dateformat system preference
627
        my $match = "$table.$field";
628
        if ( grep /$match/, @dates ) {
629
630
            # display syspref formatted date, and strip time
631
            my $dateonly = 1;
632
            $val = output_pref( dt_from_string($val), undef, undef, $dateonly );
633
        }
634
621
        my $replacetablefield = "<<$table.$field>>";
635
        my $replacetablefield = "<<$table.$field>>";
622
        my $replacefield = "<<$field>>";
636
        my $replacefield = "<<$field>>";
623
        $val =~ s/\p{P}(?=$)//g if $val;
637
        $val =~ s/\p{P}(?=$)//g if $val;
624
- 

Return to bug 9084