loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.187, 2006/12/05 02:55:53	version 1.188, 2006/12/06 17:14:50
Line 223 sub sendemail {	Line 223 sub sendemail {
my $msg = new Mail::Send;	my $msg = new Mail::Send;
$msg->to($to);	$msg->to($to);
$msg->subject('[LON-CAPA] '.$subject);	$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()) {	if (my $fh = $msg->open()) {
print $fh $body;	print $fh $body;
$fh->close;	$fh->close;