From 9dcd7d4af22cc91ba1a97d49892b2a66a9c6d83d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 26 Feb 2009 15:25:12 -0800
Subject: [PATCH] Reuse the same hash in the loop, modifying the unique keys.

---
 lib/WebGUI/Account/Inbox.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Account/Inbox.pm b/lib/WebGUI/Account/Inbox.pm
index 57d6b5af1..490abce6b 100644
--- a/lib/WebGUI/Account/Inbox.pm
+++ b/lib/WebGUI/Account/Inbox.pm
@@ -1151,14 +1151,16 @@ sub www_sendMessageSave {
     #Let sendMessage deal with displaying errors
     return $self->www_sendMessage($errorMsg) if $hasError;
 
+    my $messageProperties = {
+        message => $message,
+        subject => $subject,
+        status  => 'unread',
+        sentBy  => $fromUser->userId
+    };
+
     foreach my $uid (@toUsers) {
-        $inbox->addMessage({
-            message => $message,
-            subject => $subject,
-            userId  => $uid,
-            status  => 'unread',
-            sentBy  => $fromUser->userId
-        });
+        $messageProperties->{userId} = $uid;
+        $inbox->addMessage($messageProperties);
     }
 
     $self->appendCommonVars($var,$inbox);