version 1.242, 2006/04/25 15:32:40
|
version 1.245, 2006/05/12 01:20:44
|
Line 86 sub get_target {
|
Line 86 sub get_target {
|
} elsif ( defined($env{'form.grade_target'} ) |
} elsif ( defined($env{'form.grade_target'} ) |
&& ($Apache::lonhomework::viewgrades eq 'F' )) { |
&& ($Apache::lonhomework::viewgrades eq 'F' )) { |
return ($env{'form.grade_target'}); |
return ($env{'form.grade_target'}); |
|
} elsif ( $env{'form.grade_target'} eq 'webgrade' |
|
&& ($Apache::lonhomework::queuegrade eq 'F' )) { |
|
return ($env{'form.grade_target'}); |
} |
} |
if ($env{'form.webgrade'} && |
if ($env{'form.webgrade'} && |
$Apache::lonhomework::modifygrades eq 'F') { |
($Apache::lonhomework::modifygrades eq 'F' |
|
|| $Apache::lonhomework::queuegrade eq 'F' )) { |
return ('grade','webgrade'); |
return ('grade','webgrade'); |
} |
} |
if ( defined($env{'form.submitted'}) && |
if ( defined($env{'form.submitted'}) && |
Line 234 sub check_slot_access {
|
Line 238 sub check_slot_access {
|
my ($status,$datemsg)=&check_access($id); |
my ($status,$datemsg)=&check_access($id); |
|
|
my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
if ($useslots ne 'resource' && $useslots ne 'sequence') { |
if ($useslots ne 'resource' && $useslots ne 'map') { |
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
Line 304 sub check_slot_access {
|
Line 308 sub check_slot_access {
|
|
|
&Apache::lonxml::debug(" slot is $slotstatus checkedin ($checkedin) got_grade ($got_grade) is_correct ($is_correct)"); |
&Apache::lonxml::debug(" slot is $slotstatus checkedin ($checkedin) got_grade ($got_grade) is_correct ($is_correct)"); |
|
|
# has a current checked in recrd, but hasn't got a grade, must be awaiting |
# no slot is currently open, and has been checked in for this version |
# a grade |
# but hasn't got a grade, therefore must be awaiting a grade |
if ($checkedin |
if (!defined($slot_name) |
|
&& $checkedin |
&& !$got_grade) { |
&& !$got_grade) { |
return ('WAITING_FOR_GRADE'); |
return ('WAITING_FOR_GRADE'); |
} |
} |
Line 545 sub setuppermissions {
|
Line 550 sub setuppermissions {
|
$viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}. |
$viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}. |
'/'.$env{'request.course.sec'}); |
'/'.$env{'request.course.sec'}); |
} |
} |
$Apache::lonhomework::viewgrades = $viewgrades; # File global variable...dirt. |
$Apache::lonhomework::viewgrades = $viewgrades; |
|
|
if ($Apache::lonhomework::browse eq 'F' && |
if ($Apache::lonhomework::browse eq 'F' && |
$env{'form.devalidatecourseresdata'} eq 'on') { |
$env{'form.devalidatecourseresdata'} eq 'on') { |
my (undef,$courseid) = &Apache::lonxml::whichuser(); |
my (undef,$courseid) = &Apache::lonxml::whichuser(); |
&Apache::lonnet::devalidatecourseresdata($env{"course.$courseid.num"}, |
&Apache::lonnet::devalidatecourseresdata($env{"course.$courseid.num"}, |
$env{"course.$courseid.domain"}); |
$env{"course.$courseid.domain"}); |
} |
} |
|
|
my $modifygrades = &Apache::lonnet::allowed('mgr',$env{'request.course.id'}); |
my $modifygrades = &Apache::lonnet::allowed('mgr',$env{'request.course.id'}); |
if (! $modifygrades && |
if (! $modifygrades && |
exists($env{'request.course.sec'}) && |
exists($env{'request.course.sec'}) && |
Line 561 sub setuppermissions {
|
Line 568 sub setuppermissions {
|
'/'.$env{'request.course.sec'}); |
'/'.$env{'request.course.sec'}); |
} |
} |
$Apache::lonhomework::modifygrades = $modifygrades; |
$Apache::lonhomework::modifygrades = $modifygrades; |
|
|
|
my $queuegrade = &Apache::lonnet::allowed('mqg',$env{'request.course.id'}); |
|
if (! $queuegrade && |
|
exists($env{'request.course.sec'}) && |
|
$env{'request.course.sec'} !~ /^\s*$/) { |
|
$queuegrade = |
|
&Apache::lonnet::allowed('qgr',$env{'request.course.id'}. |
|
'/'.$env{'request.course.sec'}); |
|
} |
|
$Apache::lonhomework::queuegrade = $queuegrade; |
return ''; |
return ''; |
} |
} |
|
|
Line 967 sub handler {
|
Line 984 sub handler {
|
} |
} |
} |
} |
if (&setupheader($request)) { return OK; } |
if (&setupheader($request)) { return OK; } |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade"); |
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'}); |
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'}); |
my ($symb) = &Apache::lonxml::whichuser(); |
my ($symb) = &Apache::lonxml::whichuser(); |
&Apache::lonxml::debug('symb is '.$symb); |
&Apache::lonxml::debug('symb is '.$symb); |