version 1.210, 2007/08/18 00:32:52
|
version 1.211, 2008/03/12 02:45:07
|
Line 385 to access the full message.',$url);
|
Line 385 to access the full message.',$url);
|
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}); |
if ($what{'recnewemail'}>0) { return 1; } |
if ($what{'recnewemail'}>0) { return 1; } |
} |
} |
return 0; |
return 0; |