Diff for /loncom/homework/lonhomework.pm between versions 1.355 and 1.358

version 1.355, 2015/06/29 15:42:07 version 1.358, 2015/10/05 02:35:40
Line 210  sub proctor_checked_in { Line 210  sub proctor_checked_in {
 }  }
   
 sub check_slot_access {  sub check_slot_access {
     my ($id,$type)=@_;      my ($id,$type,$symb)=@_;
   
     # does it pass normal muster      # does it pass normal muster
     my ($status,$datemsg)=&check_access($id);      my ($status,$datemsg)=&check_access($id,$symb);
           
     my $useslots = &Apache::lonnet::EXT("resource.0.useslots");      my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
     if ($useslots ne 'resource' && $useslots ne 'map'       if ($useslots ne 'resource' && $useslots ne 'map' 
  && $useslots ne 'map_map') {   && $useslots ne 'map_map') {
  return ($status,$datemsg);   return ($status,$datemsg);
     }      }
   
     if ($status eq 'SHOW_ANSWER' ||      my $checkin = 'resource.0.checkedin';
  $status eq 'CLOSED' ||      my $version;
       if ($type eq 'Task') {
           $version=$Apache::lonhomework::history{'resource.version'};
           $checkin = "resource.$version.0.checkedin";
       }
       my $checkedin = $Apache::lonhomework::history{$checkin};
       my ($returned_slot,$slot_name,$checkinslot,$ipused,$blockip,$now,$ip);
       $now = time;
       $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'};
   
       if ($checkedin) {
           $checkinslot = $Apache::lonhomework::history{"$checkin.slot"};
           my %slot=&Apache::lonnet::get_slot($checkinslot);
           if ($slot{'iptied'}) {
               $ipused = $Apache::lonhomework::history{"$checkin.ip"};
               unless (($ip ne '') && ($ipused eq $ip)) {
                   $blockip = $slot{'iptied'};
                   $slot_name = $checkinslot;
                   $returned_slot = \%slot;
               }
           }
       }
   
       if ($status eq 'SHOW_ANSWER') {
           if ($blockip eq 'answer') {
               return ('NEED_DIFFERENT_IP','',$slot_name,$returned_slot,$ipused);
           } else {
               return ($status,$datemsg);
           }
       } 
   
       if ($status eq 'CLOSED' ||
  $status eq 'INVALID_ACCESS' ||   $status eq 'INVALID_ACCESS' ||
  $status eq 'UNAVAILABLE') {   $status eq 'UNAVAILABLE') {
  return ($status,$datemsg);   return ($status,$datemsg);
Line 232  sub check_slot_access { Line 263  sub check_slot_access {
     }      }
           
     if ($type eq 'Task') {      if ($type eq 'Task') {
  my $version=$Apache::lonhomework::history{'resource.version'};   if ($checkedin &&
  if ($Apache::lonhomework::history{"resource.$version.0.checkedin"} &&  
     $Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass') {      $Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass') {
     return ('SHOW_ANSWER');      if ($blockip eq 'answer') {
  }                  return ('NEED_DIFFERENT_IP','',$slot_name,$returned_slot,$ipused);
               } else {
           return ('SHOW_ANSWER');
               }
           }
     }      }
   
     my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent");      my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb);
     my $available = &Apache::lonnet::EXT("resource.0.available");      my $available = &Apache::lonnet::EXT("resource.0.available",$symb);
     my @slots= (split(':',$availablestudent),split(':',$available));      my @slots= (split(':',$availablestudent),split(':',$available));
   
 #    if (!@slots) {  #    if (!@slots) {
 # return ($status,$datemsg);  # return ($status,$datemsg);
 #    }  #    }
       undef($returned_slot);
       undef($slot_name);
     my $slotstatus='NOT_IN_A_SLOT';      my $slotstatus='NOT_IN_A_SLOT';
     my ($returned_slot,$slot_name);  
     my $now = time;  
     my $num_usable_slots = 0;      my $num_usable_slots = 0;
       if (!$symb) {
           ($symb) = &Apache::lonnet::whichuser();
       }
     foreach my $slot (@slots) {      foreach my $slot (@slots) {
  $slot =~ s/(^\s*|\s*$)//g;   $slot =~ s/(^\s*|\s*$)//g;
  &Apache::lonxml::debug("getting $slot");   &Apache::lonxml::debug("getting $slot");
Line 260  sub check_slot_access { Line 297  sub check_slot_access {
  if ($slot{'starttime'} < $now &&   if ($slot{'starttime'} < $now &&
     $slot{'endtime'} > $now &&      $slot{'endtime'} > $now &&
     &Apache::loncommon::check_ip_acc($slot{'ip'})) {      &Apache::loncommon::check_ip_acc($slot{'ip'})) {
     &Apache::lonxml::debug("$slot is good");              if ($slot{'iptied'}) {
     $slotstatus='NEEDS_CHECKIN';                  if ($env{'request.course.id'}) {
     $returned_slot=\%slot;                      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     $slot_name=$slot;                      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     last;                      if ($slot eq $checkinslot) {
         }                           if ($ip eq $ipused) {
                               &Apache::lonxml::debug("$slot is good");
                               $slotstatus ='NEEDS_CHECKIN'; 
                           } else {
                               $slotstatus = 'NEED_DIFFERENT_IP';
                               $slot_name = $slot;
                               $returned_slot = \%slot;
                               last;
                           }
                       } elsif ($ip) {
                           my $uniqkey = "$slot\0$symb\0$ip";
                           my %used_ip = &Apache::lonnet::get('slot_uniqueips',[$uniqkey],$cdom,$cnum);
                           if ($used_ip{$uniqkey}) {
                               $slotstatus = 'NEED_DIFFERENT_IP';
                           } else {
                               &Apache::lonxml::debug("$slot is good");
                               $slotstatus ='NEEDS_CHECKIN';
                           }
                       }
                   }
               } else {
           &Apache::lonxml::debug("$slot is good");
           $slotstatus='NEEDS_CHECKIN';
               }
               if ($slotstatus eq 'NEEDS_CHECKIN') {
           $returned_slot=\%slot;
           $slot_name=$slot;
           last;
               }
           }
     }      }
     if ($slotstatus eq 'NEEDS_CHECKIN' &&      if ($slotstatus eq 'NEEDS_CHECKIN' &&
  &proctor_checked_in($slot_name,$returned_slot,$type)) {   &proctor_checked_in($slot_name,$returned_slot,$type)) {
Line 273  sub check_slot_access { Line 339  sub check_slot_access {
  $slotstatus=$status;   $slotstatus=$status;
     }      }
   
     my ($is_correct,$got_grade,$checkedin);      my ($is_correct,$got_grade);
     if ($type eq 'Task') {      if ($type eq 'Task') {
  my $version=$Apache::lonhomework::history{'resource.0.version'};   my $version=$Apache::lonhomework::history{'resource.0.version'};
  $got_grade =    $got_grade = 
Line 282  sub check_slot_access { Line 348  sub check_slot_access {
  $is_correct =     $is_correct =  
     ($Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass'      ($Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass'
      || $Apache::lonhomework::history{"resource.0.solved"} =~ /^correct_/ );       || $Apache::lonhomework::history{"resource.0.solved"} =~ /^correct_/ );
  $checkedin =  
     $Apache::lonhomework::history{"resource.$version.0.checkedin"};  
     } elsif ($type eq 'problem') {      } elsif ($type eq 'problem') {
  $got_grade  = 1;   $got_grade  = 1;
  $checkedin  = $Apache::lonhomework::history{"resource.0.checkedin"};  
  $is_correct =   $is_correct =
     ($Apache::lonhomework::history{"resource.0.solved"} =~/^correct_/);      ($Apache::lonhomework::history{"resource.0.solved"} =~/^correct_/);
     }      }
Line 305  sub check_slot_access { Line 368  sub check_slot_access {
     # However, the problem is not closed, and potentially, another slot might be      # However, the problem is not closed, and potentially, another slot might be
     # used to gain access to it to work on it, until the due date is reached, and the      # used to gain access to it to work on it, until the due date is reached, and the
     # problem then becomes CLOSED.  Therefore return the slotstatus -       # problem then becomes CLOSED.  Therefore return the slotstatus - 
     # (which will be one of: NOT_IN_A_SLOT, RESERVABLE, RESERVABLE_LATER, or NOTRESERVABLE.      # (which will be one of: NOT_IN_A_SLOT, RESERVABLE, RESERVABLE_LATER, or NOTRESERVABLE).
     if (!defined($slot_name) && $type eq 'problem') {      if (!defined($slot_name) && $type eq 'problem') {
         if ($slotstatus eq 'NOT_IN_A_SLOT') {          if ($slotstatus eq 'NOT_IN_A_SLOT') {
             if (!$num_usable_slots) {              if (!$num_usable_slots) {
                 if ($env{'request.course.id'}) {                  if ($env{'request.course.id'}) {
                     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                     my ($symb)=&Apache::lonnet::whichuser();                      unless ($symb) {
                           ($symb)=&Apache::lonnet::whichuser();
                       }
                     $slotstatus = 'NOTRESERVABLE';                      $slotstatus = 'NOTRESERVABLE';
                     my ($reservable_now_order,$reservable_now,$reservable_future_order,                      my ($reservable_now_order,$reservable_now,$reservable_future_order,
                         $reservable_future) =                           $reservable_future) = 
Line 341  sub check_slot_access { Line 406  sub check_slot_access {
  && $checkedin ) {   && $checkedin ) {
   
  if ($got_grade) {   if ($got_grade) {
     return ('SHOW_ANSWER');              if ($blockip eq 'answer') {
                   return ('NEED_DIFFERENT_IP','',$slot_name,$returned_slot,$ipused);
               } else {
           return ('SHOW_ANSWER');
               }
  } else {   } else {
     return ('WAITING_FOR_GRADE');      return ('WAITING_FOR_GRADE');
  }   }
   
     }      }
   
     if ( $is_correct) {      if (($is_correct) && ($blockip ne 'answer')) {
  if ($type eq 'problem') {   if ($type eq 'problem') {
     return ($status);      return ($status);
  }   }
Line 356  sub check_slot_access { Line 425  sub check_slot_access {
     }      }
   
     if ( $status eq 'CANNOT_ANSWER' &&       if ( $status eq 'CANNOT_ANSWER' && 
  ($slotstatus ne 'NEEDS_CHECKIN' && $slotstatus ne 'NOT_IN_A_SLOT')) {   ($slotstatus ne 'NEEDS_CHECKIN' && $slotstatus ne 'NOT_IN_A_SLOT' &&
             $slotstatus ne 'NEED_DIFFERENT_IP') ) {
  return ($status,$datemsg);   return ($status,$datemsg);
     }      }
       return ($slotstatus,$datemsg,$slot_name,$returned_slot,$ipused);
     return ($slotstatus,$datemsg,$slot_name,$returned_slot);  
 }  }
   
 # JB, 9/24/2002: Any changes in this function may require a change  # JB, 9/24/2002: Any changes in this function may require a change
 # in lonnavmaps::resource::getDateStatus.  # in lonnavmaps::resource::getDateStatus.
 sub check_access {  sub check_access {
     my ($id) = @_;      my ($id,$symb) = @_;
     my $date ='';      my $date ='';
     my $status;      my $status;
     my $datemsg = '';      my $datemsg = '';
Line 396  sub check_access { Line 465  sub check_access {
     &Apache::lonxml::debug("checking for part :$id:");      &Apache::lonxml::debug("checking for part :$id:");
     &Apache::lonxml::debug("time:".time);      &Apache::lonxml::debug("time:".time);
   
     my ($symb)=&Apache::lonnet::whichuser();      unless ($symb) {
           ($symb)=&Apache::lonnet::whichuser();
       }
     &Apache::lonxml::debug("symb:".$symb);      &Apache::lonxml::debug("symb:".$symb);
     #if ($env{'request.state'} ne "construct" && $symb ne '') {      #if ($env{'request.state'} ne "construct" && $symb ne '') {
     if ($env{'request.state'} ne "construct") {      if ($env{'request.state'} ne "construct") {
         my $idacc = &Apache::lonnet::EXT("resource.$id.acc");          my $idacc = &Apache::lonnet::EXT("resource.$id.acc",$symb);
  my $allowed=&Apache::loncommon::check_ip_acc($idacc);   my $allowed=&Apache::loncommon::check_ip_acc($idacc);
  if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {   if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
     $status='INVALID_ACCESS';      $status='INVALID_ACCESS';
Line 416  sub check_access { Line 487  sub check_access {
  foreach my $temp ("opendate","duedate","answerdate") {   foreach my $temp ("opendate","duedate","answerdate") {
     $lastdate = $date;      $lastdate = $date;
     if ($temp eq 'duedate') {      if ($temp eq 'duedate') {
  $date = &due_date($id);   $date = &due_date($id,$symb);
     } else {      } else {
  $date = &Apache::lonnet::EXT("resource.$id.$temp");   $date = &Apache::lonnet::EXT("resource.$id.$temp",$symb);
     }      }
           
     my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type");      my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type",$symb);
     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)/) {
  $status='UNAVAILABLE';   $status='UNAVAILABLE';
Line 430  sub check_access { Line 501  sub check_access {
     }      }
     if ($thistype eq 'date_interval') {      if ($thistype eq 'date_interval') {
  if ($temp eq 'opendate') {   if ($temp eq 'opendate') {
     $date=&Apache::lonnet::EXT("resource.$id.duedate")-$date;      $date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)-$date;
  }   }
  if ($temp eq 'answerdate') {   if ($temp eq 'answerdate') {
     $date=&Apache::lonnet::EXT("resource.$id.duedate")+$date;      $date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)+$date;
  }   }
     }      }
     &Apache::lonxml::debug("found :$date: for :$temp:");      &Apache::lonxml::debug("found :$date: for :$temp:");
Line 467  sub check_access { Line 538  sub check_access {
  (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {   (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {
  #check #tries, and if correct.   #check #tries, and if correct.
  my $tries = $Apache::lonhomework::history{"resource.$id.tries"};   my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
  my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");   my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries",$symb);
  if ( $tries eq '' ) { $tries = '0'; }   if ( $tries eq '' ) { $tries = '0'; }
  if ( $maxtries eq '' &&    if ( $maxtries eq '' && 
      $env{'request.state'} ne 'construct') { $maxtries = '2'; }        $env{'request.state'} ne 'construct') { $maxtries = '2'; } 
Line 476  sub check_access { Line 547  sub check_access {
  if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)   if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)
       && (&show_problem_status()) ) {        && (&show_problem_status()) ) {
             if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) ||              if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) ||
                 (&Apache::lonnet::EXT("resource.$id.retrypartial") !~/^1|on|yes$/i)) {                  (&Apache::lonnet::EXT("resource.$id.retrypartial",$symb) !~/^1|on|yes$/i)) {
         $status = 'CANNOT_ANSWER';          $status = 'CANNOT_ANSWER';
             }              }
         } elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {          } elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
Line 488  sub check_access { Line 559  sub check_access {
  }   }
     }      }
     if ($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER') {      if ($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER') {
  my @interval=&Apache::lonnet::EXT("resource.$id.interval");   my @interval=&Apache::lonnet::EXT("resource.$id.interval",$symb);
  &Apache::lonxml::debug("looking for interval @interval");   &Apache::lonxml::debug("looking for interval @interval");
  if ($interval[0]) {   if ($interval[0]) {
     my $first_access=&Apache::lonnet::get_first_access($interval[1]);      my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
     &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';
  my $due_date = &due_date($id);   my $due_date = &due_date($id,$symb);
  my $seconds_left = $due_date - time;   my $seconds_left = $due_date - time;
  if ($seconds_left > $interval[0] || $due_date eq '') {   if ($seconds_left > $interval[0] || $due_date eq '') {
     $seconds_left = $interval[0];      $seconds_left = $interval[0];
Line 1356  sub update_construct_style { Line 1427  sub update_construct_style {
 sub zero_timer {  sub zero_timer {
     my ($symb) = @_;      my ($symb) = @_;
     my ($hastimeleft,$first_access,$now);      my ($hastimeleft,$first_access,$now);
     my @interval=&Apache::lonnet::EXT("resource.0.interval");      my @interval=&Apache::lonnet::EXT("resource.0.interval",$symb);
     if (@interval > 1) {      if (@interval > 1) {
         if ($interval[1] eq 'course') {          if ($interval[1] eq 'course') {
             return;              return;
Line 1364  sub zero_timer { Line 1435  sub zero_timer {
             my $now = time;              my $now = time;
             my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);              my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
             if ($first_access > 0) {              if ($first_access > 0) {
                 if ($first_access+$interval[0] > $now) {                  my ($timelimit) = split(/_/,$interval[0]);
                   if ($first_access+$timelimit > $now) {
                     my $done_time = $now - $first_access;                      my $done_time = $now - $first_access;
                     my $snum = 1;                      my $snum = 1;
                     if ($interval[1] eq 'map') {                      if ($interval[1] eq 'map') {

Removed from v.1.355  
changed lines
  Added in v.1.358


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>