From 358a3b364a2a2579951de6aeb4453c2f255f1b4f 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 Signed-off-by: Nicole C. Engard Signed-off-by: Chris Cormack --- misc/cronjobs/overdue_notices.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index bc97ecb5d5..e605451840 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'} } ) { -- 2.39.5