version 1.147, 2005/06/06 20:31:24
|
version 1.150, 2005/06/07 15:26:51
|
Line 596 sub statuschange {
|
Line 596 sub statuschange {
|
if (($newstatus eq 'deleted') || ($newstatus eq 'new')) { |
if (($newstatus eq 'deleted') || ($newstatus eq 'new')) { |
&Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus}); |
&Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus}); |
} |
} |
|
if ($newstatus eq 'deleted') { |
|
&movemsg(&Apache::lonnet::unescape($msgid),$folder,'trash'); |
|
} |
} |
} |
|
|
# ============================================================= Make new folder |
# ============================================================= Make new folder |
Line 1777 sub displaymessage {
|
Line 1780 sub displaymessage {
|
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs. |
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
'"><b>Delete</b></a></td>'. |
'"><b>'.&mt('Delete').'</b></a></td>'. |
'<td><a href="/adm/email?'.$sqs. |
'<td><a href="/adm/email?'.$sqs. |
($env{'form.dismode'} eq 'new'?'&folder=new':''). |
($env{'form.dismode'} eq 'new'?'&folder=new':''). |
'"><b>'.&mt('Back to Folder Display').'</b></a></td>'); |
'"><b>'.&mt('Back to Folder Display').'</b></a></td>'); |