From 3f4278bbe8d4c68be9f72d50e1eef6a411dc873d Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Fri, 13 Aug 2010 09:41:34 +1200
Subject: [PATCH] bug 4211 parsing the letter before we enqueue it

---
 C4/Suggestions.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
index cd248d3bcb..87a71e466a 100644
--- a/C4/Suggestions.pm
+++ b/C4/Suggestions.pm
@@ -379,18 +379,21 @@ Note that there is no function to modify a suggestion.
 sub ModSuggestion {
     my ($suggestion)=@_;
     my $status_update_table=UpdateInTable("suggestions", $suggestion);
-    # check mail sending.
+# check mail sending.
     if ($$suggestion{STATUS}){
         my $letter=C4::Letters::getletter('suggestions',$suggestion->{STATUS});
         if ($letter){
-        my $enqueued = C4::Letters::EnqueueLetter({
+            C4::Letters::parseletter($letter, 'borrowers', $suggestion->{suggestedby});
+            C4::Letters::parseletter($letter, 'suggestions', $suggestion->{suggestionid});
+            C4::Letters::parseletter($letter, 'biblio', $suggestion->{biblionumber});
+            my $enqueued = C4::Letters::EnqueueLetter({
             letter=>$letter,
             borrowernumber=>$suggestion->{suggestedby},
             suggestionid=>$suggestion->{suggestionid},
             LibraryName => C4::Context->preference("LibraryName"),
             message_transport_type=>'email'
             });
-        if (!$enqueued){warn "can't enqueue letter $letter";}
+            if (!$enqueued){warn "can't enqueue letter $letter";}
         }
     }
     return $status_update_table;
-- 
2.11.0