From d533dbbe2247d4709eea5eaf9dae871dfd2f5bf5 Mon Sep 17 00:00:00 2001 From: Ian Walls Date: Mon, 11 Jul 2011 16:42:46 -0400 Subject: [PATCH] Bug 5197: add <> token to notices implements for Overdue notices --- misc/cronjobs/overdue_notices.pl | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index bc97ecb..e605451 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -644,6 +644,9 @@ sub parse_letter { # FIXME: this code should probably be moved to C4::Letters:pa return unless exists $params->{$required}; } + my $todaysdate = C4::Dates->new()->output("syspref"); + $params->{'letter'}->{title} =~ s/<>/$todaysdate/g; + $params->{'letter'}->{content} =~ s/<>/$todaysdate/g; if ( $params->{'substitute'} ) { while ( my ( $key, $replacedby ) = each %{ $params->{'substitute'} } ) { -- 1.7.1