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