loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.146, 2005/06/06 19:51:05	version 1.147, 2005/06/06 20:31:24
Line 1798 sub displaymessage {	Line 1798 sub displaymessage {
}	}
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
my $symb=&Apache::lonnet::symbread($content{'baseurl'});	my $symb=&Apache::lonnet::symbread($content{'baseurl'});
$r->print('<td><b>'.&Apache::loncommon::parm_direct_link(&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'})) {
my $symb=&Apache::lonnet::symbread($content{'baseurl'});	my $symb=&Apache::lonnet::symbread($content{'baseurl'});
$r->print('<td><b>'.&Apache::loncommon::grds_direct_link(&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>');
}	}
$r->print('</tr></table>');	$r->print('</tr></table>');
}	}