set reply to = from for data form emails

docs/changelog/7.x.x.txt

@@ -1,3 +1,7 @@
+7.4.3
+ - Data Forms set reply to to the same as the from field
+
+
 7.4.2
  - Group names can now be 100 characters long
  - prevent groups being created with duplicate names

lib/WebGUI/Asset/Wobject/DataForm.pm

@@ -738,7 +738,14 @@ sub sendEmail {
 	    @{$self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}})}
 		: ();
 	if ($to =~ /\@/) {
-		my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
+		my $mail = WebGUI::Mail::Send->create($self->session,{
+		    to      => $to,
+		    replyTo => $from,
+		    subject => $subject,
+		    cc      => $cc,
+		    from    => $from,
+		    bcc     => $bcc,
+		});
 		$mail->addHtml($message);
 		$mail->addFooter;
 		$mail->addAttachment($_) for (@attachments);
@@ -760,22 +767,22 @@ sub sendEmail {
 				message=>$message,
 				status=>'complete'
 				});
-                        my $mail =  WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
 			if ($cc) {
+                my $mail =  WebGUI::Mail::Send->create($self->session,{to=>$cc, replyTo=>$from, subject=>$subject, from=>$from});
 				$mail->addHtml($message);
 				$mail->addAttachment($_) for (@attachments);
 				$mail->addFooter;
 				$mail->queue;
-                        }
+            }
-                        if ($bcc) {
+            if ($bcc) {
-                                WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
+                my $mail = WebGUI::Mail::Send->create($self->session, {to=>$bcc, replyTo=>$from, subject=>$subject, from=>$from});
 				$mail->addHtml($message);
 				$mail->addAttachment($_) for (@attachments);
 				$mail->addFooter;
 				$mail->queue;
-                        }
+            }
-                }
         }
+    }
 }
 
 #-------------------------------------------------------------------