From: Ian Walls <ian.wa...@bywatersolutions.com>
implements for Overdue notices
Signed-off-by: Nicole C. Engard <neng...@bywatersolutions.com>
---
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/<<today>>/$todaysdate/g;
+ $params->{'letter'}->{content} =~ s/<<today>>/$todaysdate/g;
if ( $params->{'substitute'} ) {
while ( my ( $key, $replacedby ) = each %{ $params->{'substitute'} } )
{
--
1.7.2.3
_______________________________________________
Koha-patches mailing list
Koha-patches@lists.koha-community.org
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
