From c249f6519e11fa505dd00b6c71d20a73ee00053e Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Wed, 9 Jan 2008 13:14:27 -0600
Subject: [PATCH] Suggestions.pm - bugfix need CGI argument to gettemplate

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 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