version 1.59, 2006/12/24 22:13:19
|
version 1.61, 2007/01/04 02:02:36
|
Line 1072 ENDDISHEADER
|
Line 1072 ENDDISHEADER
|
' value="'.$origID.'" /></nobr></td>'); |
' value="'.$origID.'" /></nobr></td>'); |
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) { |
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) { |
$r->print('<td>'.(($status eq 'new')?'<b>':''). |
$r->print('<td>'.(($status eq 'new')?'<b>':''). |
'<a href="/adm/email?display='.$origID.$sqs.$fsqs.'">'. |
'<a href="/adm/email?display='.$origID.$sqs.'">'. |
$item.(($status eq 'new')?'</b>':'').'</td>'); |
$item.(($status eq 'new')?'</b>':'').'</td>'); |
} |
} |
my $showstatus; |
my $showstatus; |
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++; |
} |
} |
} |
} |