loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.222.2.1 and 1.226

version 1.222.2.1, 2010/08/20 18:45:20	version 1.226, 2010/05/29 22:39:52
Line 455 sub sendemail {	Line 455 sub sendemail {
"*** ".&mt_user($user_lh,'This is an automatic e-mail generated by the LON-CAPA system.')."\n".	"*** ".&mt_user($user_lh,'This is an automatic e-mail generated by the LON-CAPA system.')."\n".
"* ".($senderaddress?&mt_user($user_lh,'You can reply to this e-mail'):&mt_user($user_lh,'Please do not reply to this address.')."\n* ".	"* ".($senderaddress?&mt_user($user_lh,'You can reply to this e-mail'):&mt_user($user_lh,'Please do not reply to this address.')."\n* ".
&mt_user($user_lh,'A reply will not be received by the recipient!'))."\n\n".$body;	&mt_user($user_lh,'A reply will not be received by the recipient!'))."\n\n".$body;

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);
Line 574 sub make_htmlfree {	Line 575 sub make_htmlfree {
return $text;	return $text;
}	}

	sub mynewmail{
	&newmail();
	return $env{'user.mailcheck.lastnewmassagetime'} > $env{'user.mailcheck.lastvisit'};
	}


sub newmail {	sub newmail {
if ((time-$env{'user.mailcheck.time'})>300) {	if ((time-$env{'user.mailcheck.time'})>300) {
my %what=&Apache::lonnet::get('email_status',['recnewemail']);	my %what=&Apache::lonnet::get('email_status',['recnewemail']);
&Apache::lonnet::appenv({'user.mailcheck.time'=>time});	&Apache::lonnet::appenv({'user.mailcheck.time'=>time});
	&Apache::lonnet::appenv({'user.mailcheck.lastnewmassagetime'=> $what{'recnewemail'}});
if ($what{'recnewemail'}>0) { return 1; }	if ($what{'recnewemail'}>0) { return 1; }
}	}
return 0;	return 0;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.222.2.1
changed lines
	Added in v.1.226