version 1.11, 2006/04/23 07:13:21
|
version 1.12, 2006/04/25 19:45:50
|
Line 1765 sub sendoffmail {
|
Line 1765 sub sendoffmail {
|
my ($recuname,$recdomain)=split(/\:/,$_); |
my ($recuname,$recdomain)=split(/\:/,$_); |
my $msgtxt = $savemsg; |
my $msgtxt = $savemsg; |
if ($toaddr{$_}) { $msgtxt.='<hr />'.$toaddr{$_}; } |
if ($toaddr{$_}) { $msgtxt.='<hr />'.$toaddr{$_}; } |
my $thismsg; |
my @thismsg; |
if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) && |
if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) && |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}) |
|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}. |
'/'.$env{'request.course.sec'}))) { |
'/'.$env{'request.course.sec'}))) { |
$r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': '); |
$r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': '); |
$thismsg=&Apache::lonmsg::user_crit_msg($recuname,$recdomain,$msgsubj,$msgtxt, |
@thismsg=&Apache::lonmsg::user_crit_msg($recuname,$recdomain,$msgsubj,$msgtxt, |
$env{'form.sendbck'},$env{'form.permanent'}, |
$env{'form.sendbck'},$env{'form.permanent'}, |
\$sentmessage{$_}); |
\$sentmessage{$_}); |
} else { |
} else { |
$r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); |
$r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); |
$thismsg=&Apache::lonmsg::user_normal_msg($recuname,$recdomain,$msgsubj,$msgtxt, |
@thismsg=&Apache::lonmsg::user_normal_msg($recuname,$recdomain,$msgsubj,$msgtxt, |
$content{'citation'},undef,undef,$env{'form.permanent'},\$sentmessage{$_}); |
$content{'citation'},undef,undef,$env{'form.permanent'},\$sentmessage{$_}); |
} |
} |
if (($env{'request.course.id'}) && (($msgtype eq 'critical') || |
if (($env{'request.course.id'}) && (($msgtype eq 'critical') || |
($env{'form.sendmode'} eq 'group'))) { |
($env{'form.sendmode'} eq 'group'))) { |
$specialmsg_status{$recuname.':'.$recdomain} = $thismsg; |
$specialmsg_status{$recuname.':'.$recdomain} = |
if ($thismsg eq 'ok') { |
join(' ',@thismsg); |
$numspecial ++; |
foreach my $result (@thismsg) { |
} |
if ($result eq 'ok') { |
|
$numspecial++; |
|
} |
|
} |
} |
} |
$r->print($thismsg.'<br />'); |
$r->print(join(' ',@thismsg).'<br />'); |
$sendstatus.=' '.$thismsg; |
$sendstatus.=' '.join(' ',@thismsg); |
} |
} |
if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group') |
if (($env{'request.course.id'}) && (($env{'form.sendmode'} eq 'group') |
|| ($msgtype eq 'critical'))) { |
|| ($msgtype eq 'critical'))) { |