|
version 1.159, 2005/08/16 16:36:08
|
version 1.161, 2005/09/20 07:52:03
|
|
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')", |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface