version 1.158, 2005/07/14 21:37:22
|
version 1.162, 2005/11/08 14:45:44
|
Line 185 ENDINLINEMENU
|
Line 185 ENDINLINEMENU
|
} |
} |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td bgcolor="$tabbg"> |
<td bgcolor="$tabbg"> |
<a href="$link"><font $face color="$font">$lt{'nav'}</font></a></td> |
<a href="$link" target="_top"><font $face color="$font">$lt{'nav'}</font></a></td> |
ENDNAV |
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; |