version 1.6, 2006/04/23 03:00:34
|
version 1.8, 2006/04/23 04:04:38
|
Line 478 sub disnew {
|
Line 478 sub disnew {
|
push @newmsgs, { |
push @newmsgs, { |
msgid => $msgid, |
msgid => $msgid, |
sendtime => $sendtime, |
sendtime => $sendtime, |
shortsub => &Apache::lonnet::unescape($shortsubj), |
shortsub => $shortsubj, |
from => $fromname, |
from => $fromname, |
fromdom => $fromdom, |
fromdom => $fromdom, |
course => $description |
course => $description |
Line 653 ENDDISHEADER
|
Line 653 ENDDISHEADER
|
'">'.&mt('Delete'):' ').'</a></td>'. |
'">'.&mt('Delete'):' ').'</a></td>'. |
'<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'. |
'<td>'.&Apache::lonlocal::locallocaltime($sendtime).'</td><td>'. |
$dis_name.'</td><td>'.$dis_domain.'</td><td>'. |
$dis_name.'</td><td>'.$dis_domain.'</td><td>'. |
&Apache::lonnet::unescape($shortsubj).'</td><td>'. |
$shortsubj.'</td><td>'. |
$description.'</td><td>'.$status.'</td></tr>'."\n"); |
$description.'</td><td>'.$status.'</td></tr>'."\n"); |
} elsif ($status eq 'deleted') { |
} elsif ($status eq 'deleted') { |
# purge |
# purge |
Line 1676 sub sendoffmail {
|
Line 1676 sub sendoffmail {
|
my $savemsg; |
my $savemsg; |
my $msgtype; |
my $msgtype; |
my %sentmessage; |
my %sentmessage; |
my $msgsubj=&Apache::lonfeedback::clear_out_html($env{'form.subject'}); |
my $msgsubj=&Apache::lonfeedback::clear_out_html($env{'form.subject'}, |
|
undef,1); |
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'}. |