loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.199, 2007/04/22 02:25:36	version 1.200, 2007/04/22 13:41:22
Line 581 sub user_normal_msg_raw {	Line 581 sub user_normal_msg_raw {
&Apache::lonnet::put	&Apache::lonnet::put
('email_status',{'recnewemail'=>time},$domain,$user);	('email_status',{'recnewemail'=>time},$domain,$user);
# Into sent-mail folder unless a broadcast message or critical message	# Into sent-mail folder unless a broadcast message or critical message
unless (($env{'request.course.id'}) &&	unless (($env{'request.course.id'}) &&
(($env{'form.sendmode'} eq 'group') \|\|	(($env{'form.courserecord'}) &&
(($env{'form.critmsg'}) \|\| ($env{'form.sendbck'})) &&	(&Apache::lonnet::allowed('dff',$env{'request.course.id'})
(&Apache::lonnet::allowed('srm',$env{'request.course.id'})	\|\| &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
\|\| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.	'/'.$env{'request.course.sec'}))) \|\|
'/'.$env{'request.course.sec'})))) {	(($env{'form.sendmode'} eq 'group') \|\|
	(($env{'form.critmsg'}) \|\| ($env{'form.sendbck'})) &&
	(&Apache::lonnet::allowed('srm',$env{'request.course.id'})
	\|\| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
	'/'.$env{'request.course.sec'})))) {
(undef,my $packed_message_no_citation) =	(undef,my $packed_message_no_citation) =
&packagemsg($subject,$message,undef,$baseurl,$attachmenturl,	&packagemsg($subject,$message,undef,$baseurl,$attachmenturl,
$user,$domain,$currid,undef,$crsmsgid,$symb,$error);	$user,$domain,$currid,undef,$crsmsgid,$symb,$error);