loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2002/10/11 20:04:34	version 1.42, 2002/10/25 13:55:45
Line 125 sub newmail {	Line 125 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::logthis('Check Mail: '.$what{'recnewemail'});
if ($what{'recnewemail'}>0) { return 1; }	if ($what{'recnewemail'}>0) { return 1; }
}	}
return 0;	return 0;
Line 211 sub user_crit_received {	Line 210 sub user_crit_received {
&user_normal_msg($contents{'sendername'},$contents{'senderdomain'},	&user_normal_msg($contents{'sendername'},$contents{'senderdomain'},
'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},	'Receipt: '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},
'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.	'User '.$ENV{'user.name'}.' at '.$ENV{'user.domain'}.
' acknowledged receipt of message "'.	' acknowledged receipt of message'."\n".' "'.
$contents{'subject'}.'" dated '.$contents{'time'}.".\n\n"	$contents{'subject'}.'"'."\n".'dated '.
.'Message ID: '.$contents{'msgid'}):'no msg req');	$contents{'time'}.".\n"
	):'no msg req');
$status.=' trans: '.	$status.=' trans: '.
&Apache::lonnet::put(	&Apache::lonnet::put(
'nohist_email',{$contents{'msgid'} => $message{$msgid}});	'nohist_email',{$contents{'msgid'} => $message{$msgid}});