[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.344.2.2 and 1.344.2.3

version 1.344.2.2, 2015/04/20 01:22:58 version 1.344.2.3, 2016/08/06 23:23:18
Line 208  sub proctor_checked_in { Line 208  sub proctor_checked_in {
 }  }
   
 sub check_slot_access {  sub check_slot_access {
     my ($id,$type)=@_;      my ($id,$type,$partlist)=@_;
   
     # does it pass normal muster      # does it pass normal muster
     my ($status,$datemsg)=&check_access($id);      my ($status,$datemsg)=&check_access($id);
Line 271  sub check_slot_access { Line 271  sub check_slot_access {
  $slotstatus=$status;   $slotstatus=$status;
     }      }
   
     my ($is_correct,$got_grade,$checkedin);      my ($is_correct,$got_grade,$checkinslot,$checkedin,$consumed_uniq);
     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 283  sub check_slot_access { Line 283  sub check_slot_access {
  $checkedin =   $checkedin =
     $Apache::lonhomework::history{"resource.$version.0.checkedin"};      $Apache::lonhomework::history{"resource.$version.0.checkedin"};
     } elsif ($type eq 'problem') {      } elsif ($type eq 'problem') {
  $got_grade  = 1;  
  $checkedin  = $Apache::lonhomework::history{"resource.0.checkedin"};   $checkedin  = $Apache::lonhomework::history{"resource.0.checkedin"};
  $is_correct =      }
     ($Apache::lonhomework::history{"resource.0.solved"} =~/^correct_/);      if ($checkedin) {
           $checkinslot = $Apache::lonhomework::history{"$checkin.slot"};
           my %slot=&Apache::lonnet::get_slot($checkinslot);
           $consumed_uniq = $slot{'uniqueperiod'};
       }
       if ($type eq 'problem') {
           if ((ref($partlist) eq 'ARRAY') && (@{$partlist} > 0)) {
               my ($numcorrect,$numgraded) = (0,0);
               foreach my $part (@{$partlist}) {
                   my $currtries = $Apache::lonhomework::history{"resource.$part.tries"};
                   my $maxtries = &Apache::lonnet::EXT("resource.$part.maxtries",$symb);
                   my $probstatus = &Apache::structuretags::get_problem_status($part);
                   my $earlyout;
                   unless (($probstatus eq 'no') ||
                           ($probstatus eq 'no_feedback_ever')) {
                       if ($Apache::lonhomework::history{"resource.$part.solved"} =~/^correct_/) {
                           $numcorrect ++;
                       } else {
                           $earlyout = 1;
                       }
                   }
                   if (($currtries == $maxtries) || ($is_correct)) {
                       $earlyout = 1;
                   } else {
                       $numgraded ++;
                   }
                   last if ($earlyout);
               }
               my $numparts = scalar(@{$partlist});
               if ($numparts == $numcorrect) {
                   $is_correct = 1;
               }
               if ($numparts == $numgraded) {
                   $got_grade = 1;
               }
           } else {
               my $currtries = $Apache::lonhomework::history{"resource.0.tries"};
               my $maxtries = &Apache::lonnet::EXT("resource.0.maxtries",$symb);
               my $probstatus = &Apache::structuretags::get_problem_status('0');
               unless (($probstatus eq 'no') ||
                       ($probstatus eq 'no_feedback_ever')) {
                   $is_correct =
                       ($Apache::lonhomework::history{"resource.0.solved"} =~/^correct_/);
               }
               unless (($currtries == $maxtries) || ($is_correct)) {
                   $got_grade = 1;
               }
           }
     }      }
           
     &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)");
Line 317  sub check_slot_access { Line 363  sub check_slot_access {
                         &Apache::loncommon::get_future_slots($cnum,$cdom,$now,$symb);                          &Apache::loncommon::get_future_slots($cnum,$cdom,$now,$symb);
                     if ((ref($reservable_now_order) eq 'ARRAY') && (ref($reservable_now) eq 'HASH')) {                      if ((ref($reservable_now_order) eq 'ARRAY') && (ref($reservable_now) eq 'HASH')) {
                         if (@{$reservable_now_order} > 0) {                          if (@{$reservable_now_order} > 0) {
                             $slotstatus = 'RESERVABLE';                              if ((!$checkedin) || (ref($consumed_uniq) ne 'ARRAY')) {
                             $datemsg = $reservable_now->{$reservable_now_order->[-1]}{'endreserve'};                                  $slotstatus = 'RESERVABLE';
                                   $datemsg = $reservable_now->{$reservable_now_order->[-1]}{'endreserve'};
                               } else {
                                   my ($uniqstart,$uniqend,$useslot);
                                   if (ref($consumed_uniq) eq 'ARRAY') {
                                       ($uniqstart,$uniqend)=@{$consumed_uniq};
                                   }
                                   foreach my $slot (reverse(@{$reservable_now_order})) {
                                       if ($reservable_now->{$slot}{'uniqueperiod'} =~ /^(\d+)\,(\d+)$/) {
                                           my ($new_uniq_start,$new_uniq_end) = ($1,$2);
                                           next if (!
                                               ($uniqstart < $new_uniq_start && $uniqend < $new_uniq_start) ||
                                               ($uniqstart > $new_uniq_end   &&  $uniqend > $new_uniq_end  ));
                                       }
                                       $useslot = $slot;
                                       last;
                                   }
                                   if ($useslot) {
                                       $slotstatus = 'RESERVABLE';
                                       $datemsg = $reservable_now->{$useslot}{'endreserve'};
                                   }
                               }
                         }                          }
                     }                      }
                     unless ($slotstatus eq 'RESERVABLE') {                      unless ($slotstatus eq 'RESERVABLE') {
                         if ((ref($reservable_future_order) eq 'ARRAY') && (ref($reservable_future) eq 'HASH')) {                          if ((ref($reservable_future_order) eq 'ARRAY') && (ref($reservable_future) eq 'HASH')) {
                             if (@{$reservable_future_order} > 0) {                              if (@{$reservable_future_order} > 0) {
                                 $slotstatus = 'RESERVABLE_LATER';                                  if ((!$checkedin) || (ref($consumed_uniq) ne 'ARRAY')) {
                                 $datemsg = $reservable_future->{$reservable_future_order->[0]}{'startreserve'};                                      $slotstatus = 'RESERVABLE_LATER';
                                       $datemsg = $reservable_future->{$reservable_future_order->[0]}{'startreserve'};
                                   } else {
                                       my ($uniqstart,$uniqend,$useslot);
                                       if (ref($consumed_uniq) eq 'ARRAY') {
                                           ($uniqstart,$uniqend)=@{$consumed_uniq};
                                       }
                                       foreach my $slot (@{$reservable_future_order}) {
                                           if ($reservable_future->{$slot}{'uniqueperiod'} =~ /^(\d+),(\d+)$/) {
                                               my ($new_uniq_start,$new_uniq_end) = ($1,$2);
                                               next if (!
                                                  ($uniqstart < $new_uniq_start && $uniqend < $new_uniq_start) ||
                                                  ($uniqstart > $new_uniq_end   &&  $uniqend > $new_uniq_end  ));
                                           }
                                           $useslot = $slot;
                                           last;
                                       }
                                       if ($useslot) {
                                           $slotstatus = 'RESERVABLE_LATER';
                                           $datemsg = $reservable_future->{$useslot}{'startreserve'};
                                       }
                                   }
                             }                              }
                         }                          }
                     }                      }
Removed from v.1.344.2.2  
changed lines
  Added in v.1.344.2.3

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