|
version 1.359, 2011/11/07 18:22:37
|
version 1.361, 2011/11/10 21:15:55
|
|
Line 153 use Apache::lonhtmlcommon();
|
Line 153 use Apache::lonhtmlcommon();
|
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonenc(); |
use Apache::lonenc(); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| |
use Apache::lonmsg(); |
| use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
| use HTML::Entities(); |
use HTML::Entities(); |
| use Apache::lonwishlist(); |
use Apache::lonwishlist(); |
|
Line 410 sub innerregister {
|
Line 411 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|task)$/) { |
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
| if (&Apache::lonnet::allowed('mgr',$crs)) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
| $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
$hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
| "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