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