version 1.344, 2004/10/12 22:55:22
|
version 1.345, 2004/10/18 19:49:58
|
Line 1573 sub whichuser {
|
Line 1573 sub whichuser {
|
if (defined($ENV{'form.grade_symb'})) { |
if (defined($ENV{'form.grade_symb'})) { |
my $tmp_courseid=$ENV{'form.grade_courseid'}; |
my $tmp_courseid=$ENV{'form.grade_courseid'}; |
my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid); |
my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid); |
|
if (!$allowed && |
|
exists($ENV{'request.course.sec'}) && |
|
$ENV{'request.course.sec'} !~ /^\s*$/) { |
|
$allowed=&Apache::lonnet::allowed('vgr',$ENV{'form.grade_courseid'}. |
|
'/'.$ENV{'request.course.sec'}); |
|
} |
if ($allowed) { |
if ($allowed) { |
$symb=$ENV{'form.grade_symb'}; |
$symb=$ENV{'form.grade_symb'}; |
$courseid=$ENV{'form.grade_courseid'}; |
$courseid=$ENV{'form.grade_courseid'}; |