loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.147 and 1.149

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.147, 2005/06/06 20:31:24	version 1.149, 2005/06/07 13:42: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>');
Line 1796 sub displaymessage {	Line 1799 sub displaymessage {
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
$r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>');	$r->print('<td><b>'.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').'</b></td>');
}	}
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {	if ((&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
my $symb=&Apache::lonnet::symbread($content{'baseurl'});	my $symb=&Apache::lonnet::symbread($content{'baseurl'});
$r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');	$r->print('<td><b>'.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');
}	}
if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {	if ((&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
my $symb=&Apache::lonnet::symbread($content{'baseurl'});	my $symb=&Apache::lonnet::symbread($content{'baseurl'});
$r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');	$r->print('<td><b>'.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').'</b></td>');
}	}

Removed from v.1.147
changed lines
	Added in v.1.149