From c249f6519e11fa505dd00b6c71d20a73ee00053e Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 9 Jan 2008 13:14:27 -0600 Subject: [PATCH] Suggestions.pm - bugfix need CGI argument to gettemplate Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Suggestions.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 80e0fbca75..82123072ad 100644 --- a/C4/Suggestions.pm +++ b/C4/Suggestions.pm @@ -19,10 +19,12 @@ package C4::Suggestions; use strict; +use CGI; +use Mail::Sendmail; + use C4::Context; use C4::Output; use C4::Dates qw(format_date); -use Mail::Sendmail; use vars qw($VERSION @ISA @EXPORT); BEGIN { @@ -385,7 +387,7 @@ sub ModStatus { $sth = $dbh->prepare($queryMail); $sth->execute($suggestionid); my $emailinfo = $sth->fetchrow_hashref; - my $template = gettemplate("suggestion/mail_suggestion_$status.tmpl","intranet"); + my $template = gettemplate("suggestion/mail_suggestion_$status.tmpl", "intranet", CGI->new()); $template->param( byemail => $emailinfo->{byemail}, -- 2.39.5