From ac92b7d6ba305f5c888e0f05142ef09fd0156988 Mon Sep 17 00:00:00 2001
From: Drake <drake@plainblack.com>
Date: Tue, 5 Dec 2006 16:22:28 +0000
Subject: [PATCH] Clean up a few uses of map in void context in the Data Form.

---
 lib/WebGUI/Asset/Wobject/DataForm.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 7e4dbde1d..8b1cbabca 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -734,7 +734,7 @@ sub sendEmail {
 		my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
 		$mail->addHtml($message);
 		$mail->addFooter;
-		map $mail->addAttachment($_), @{$attachments};
+		$mail->addAttachment($_) for (@{$attachments});
 		$mail->queue;
 	} else {
                 my ($userId) = $self->session->db->quickArray("select userId from users where username=".$self->session->db->quote($to));
@@ -756,14 +756,14 @@ sub sendEmail {
                         my $mail =  WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
 			if ($cc) {
 				$mail->addHtml($message);
-				map $mail->addAttachment($_), @{$attachments};
+				$mail->addAttachment($_) for (@{$attachments});
 				$mail->addFooter;
 				$mail->queue;
                         }
                         if ($bcc) {
                                 WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
 				$mail->addHtml($message);
-				map $mail->addAttachment($_), @{$attachments};
+				$mail->addAttachment($_) for (@{$attachments});
 				$mail->addFooter;
 				$mail->queue;
                         }