version 1.78, 2003/06/19 03:03:32
|
version 1.79, 2003/06/23 19:08:03
|
Line 245 sub innerregister {
|
Line 245 sub innerregister {
|
my $hwkadd=''; |
my $hwkadd=''; |
if |
if |
($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
my $crs='/'.$ENV{'request.course.id'}; |
|
if ($ENV{'request.course.sec'}) { |
|
$crs.='_'.$ENV{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
|
|
if (&Apache::lonnet::allowed('vgr',$crs)) { |
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions', |
$hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions', |
"gocmd('/adm/grades','submission')", |
"gocmd('/adm/grades','submission')", |
'View user submissions for this assessment resource'); |
'View user submissions for this assessment resource'); |
} |
} |
if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades', |
$hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades', |
"gocmd('/adm/grades','gradingmenu')", |
"gocmd('/adm/grades','gradingmenu')", |
'Modify user grades for this assessment resource'); |
'Modify user grades for this assessment resource'); |
} |
} |
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('opa',$crs)) { |
$hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms', |
$hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms', |
"gocmd('/adm/parmset','set')", |
"gocmd('/adm/parmset','set')", |
'Modify deadlines, etc, for this assessment resource'); |
'Modify deadlines, etc, for this assessment resource'); |