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

(-)a/C4/Letters.pm (-1 / +15 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 dateonly, if timestamp has trailing '23:59:00'
631
            my $dateonly = 0;
632
            $dateonly = 1 if $val =~ /23:59:00$/;
633
            $val = output_pref( dt_from_string($val), undef, undef, $dateonly );
634
        }
635
621
        my $replacetablefield = "<<$table.$field>>";
636
        my $replacetablefield = "<<$table.$field>>";
622
        my $replacefield = "<<$field>>";
637
        my $replacefield = "<<$field>>";
623
        $val =~ s/\p{P}(?=$)//g if $val;
638
        $val =~ s/\p{P}(?=$)//g if $val;
624
- 

Return to bug 9084