loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.230, 2010/11/10 14:44:50	version 1.231, 2011/02/13 17:44:51
Line 578 sub make_htmlfree {	Line 578 sub make_htmlfree {

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


Line 586 sub newmail {	Line 586 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'}});	&Apache::lonnet::appenv({'user.mailcheck.lastnewmessagetime'=> $what{'recnewemail'}});
if ($what{'recnewemail'}>0) { return 1; }	if ($what{'recnewemail'}>0) { return 1; }
}	}
return 0;	return 0;