[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Wed Dec  6 12:14:50 2006 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Bug #4072: fudge "from" field
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.187 loncom/interface/lonmsg.pm:1.188
--- loncom/interface/lonmsg.pm:1.187	Mon Dec  4 21:55:53 2006
+++ loncom/interface/lonmsg.pm	Wed Dec  6 12:14:50 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.187 2006/12/05 02:55:53 albertel Exp $
+# $Id: lonmsg.pm,v 1.188 2006/12/06 17:14:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -223,7 +223,7 @@
     my $msg = new Mail::Send;
     $msg->to($to);
     $msg->subject('[LON-CAPA] '.$subject);
-    if ($senderaddress) { $msg->add('Reply-to',$senderaddress); }
+    if ($senderaddress) { $msg->add('Reply-to',$senderaddress); $msg->add('From',$senderaddress); }
     if (my $fh = $msg->open()) {
 	print $fh $body;
 	$fh->close;