loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2005/08/16 16:36:08	version 1.162, 2005/11/08 14:45:44
Line 190 ENDNAV	Line 190 ENDNAV
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
$docs=(<<ENDDOCS);	$docs=(<<ENDDOCS);
<td bgcolor="$tabbg">	<td bgcolor="$tabbg">
<a href="/adm/coursedocs"><font $face color="$font">$lt{'docs'}</font></a></td>	<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a></td>
ENDDOCS	ENDDOCS
}	}
if (	if (
Line 363 sub innerregister {	Line 363 sub innerregister {

my $hwkadd='';	my $hwkadd='';
if ($env{'request.symb'} ne '' &&	if ($env{'request.symb'} ne '' &&
$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	$env{'request.filename'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
if (&Apache::lonnet::allowed('mgr',$crs)) {	if (&Apache::lonnet::allowed('mgr',$crs)) {
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',	$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',
"gocmd('/adm/grades','gradingmenu')",	"gocmd('/adm/grades','gradingmenu')",
Line 1186 sub get_nav_status {	Line 1186 sub get_nav_status {

sub handler {	sub handler {
my $r = shift;	my $r = shift;
	&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;