loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2006/12/24 22:13:19	version 1.60, 2006/12/27 20:42:12
Line 2289 sub sendoffmail {	Line 2289 sub sendoffmail {
my $msgtxt = $savemsg;	my $msgtxt = $savemsg;
if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }	if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }
my @thismsg;	my @thismsg;
if ((($env{'form.critmsg'}) \|\| ($env{'form.sendbck'})) &&	if ($msgtype eq 'critical') {
(&Apache::lonnet::allowed('srm',$env{'request.course.id'})	$r->print(&mt('Sending critical message').' '.
\|\| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.	$recuname.':'.$recdomain.': ');
'/'.$env{'request.course.sec'}))) {
$r->print(&mt('Sending critical message').' '.$recuname.':'.$recdomain.': ');
@thismsg=	@thismsg=
&Apache::lonmsg::user_crit_msg($recuname,$recdomain,	&Apache::lonmsg::user_crit_msg($recuname,$recdomain,
$msgsubj,$msgtxt,	$msgsubj,$msgtxt,
Line 2315 sub sendoffmail {	Line 2313 sub sendoffmail {
$specialmsg_status{$recuname.':'.$recdomain} =	$specialmsg_status{$recuname.':'.$recdomain} =
join(' ',@thismsg);	join(' ',@thismsg);
foreach my $result (@thismsg) {	foreach my $result (@thismsg) {
if ($result eq 'ok') {	if ($result eq 'ok' \|\| $result eq 'con_delayed') {
$numspecial++;	$numspecial++;
}	}
}	}