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 |
- |
|
|