version 1.243, 2006/05/09 19:03:02
|
version 1.247, 2006/05/15 19:29:17
|
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 379 sub check_access {
|
Line 383 sub check_access {
|
|
|
foreach my $temp ("opendate","duedate","answerdate") { |
foreach my $temp ("opendate","duedate","answerdate") { |
$lastdate = $date; |
$lastdate = $date; |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
if ($temp eq 'duedate') { |
|
$date = &due_date($id); |
|
} else { |
|
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
|
} |
|
|
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
if ($thistype =~ /^(con_lost|no_such_host)/ || |
if ($thistype =~ /^(con_lost|no_such_host)/ || |
$date =~ /^(con_lost|no_such_host)/) { |
$date =~ /^(con_lost|no_such_host)/) { |
Line 447 sub check_access {
|
Line 456 sub check_access {
|
&Apache::lonxml::debug("looking for accesstime $first_access"); |
&Apache::lonxml::debug("looking for accesstime $first_access"); |
if (!$first_access) { |
if (!$first_access) { |
$status='NOT_YET_VIEWED'; |
$status='NOT_YET_VIEWED'; |
$datemsg=&seconds_to_human_length($interval); |
my $due_date = &due_date($id); |
} else { |
$datemsg=&seconds_to_human_length($due_date-time); |
my $newdate=localtime($first_access+$interval); |
|
if (time > ($first_access+$interval)) { |
|
$status='CLOSED'; |
|
$datemsg = &mt("was due on")." $newdate".&mt(", and answers will be available on")." $date"; |
|
} else { |
|
$datemsg = &mt("is due at")." $newdate"; |
|
} |
|
} |
} |
} |
} |
} |
} |
|
|
#if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |
#if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |
# (!$Apache::lonhomework::history{"resource.0.outtoken"})) { |
# (!$Apache::lonhomework::history{"resource.0.outtoken"})) { |
# return ('UNCHECKEDOUT','needs to be checked out'); |
# return ('UNCHECKEDOUT','needs to be checked out'); |
Line 474 sub check_access {
|
Line 477 sub check_access {
|
|
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
# this should work exactly like the copy in lonnavmaps.pm |
|
sub due_date { |
|
my ($part_id,$symb)=@_; |
|
my $date; |
|
my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb); |
|
&Apache::lonxml::debug("looking for interval $part_id $symb $interval"); |
|
my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb); |
|
&Apache::lonxml::debug("looking for due_date $part_id $symb $due_date"); |
|
if (defined($interval)) { |
|
my $first_access=&Apache::lonnet::get_first_access('map',$symb); |
|
if (defined($first_access)) { |
|
$interval = $first_access+$interval; |
|
$date = ($interval < $due_date)? $interval : $due_date; |
|
} else { |
|
$date = $due_date; |
|
} |
|
} else { |
|
$date = $due_date; |
|
} |
|
return $date |
|
} |
|
|
sub seconds_to_human_length { |
sub seconds_to_human_length { |
my ($length)=@_; |
my ($length)=@_; |
Line 546 sub setuppermissions {
|
Line 570 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 562 sub setuppermissions {
|
Line 588 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 968 sub handler {
|
Line 1004 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); |