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

Diff for /loncom/homework/lonhomework.pm between versions 1.229 and 1.231

version 1.229, 2005/12/15 23:27:22 version 1.231, 2005/12/21 19:05:05
Line 171  sub proctor_checked_in { Line 171  sub proctor_checked_in {
           
     my $key;      my $key;
     if ($type eq 'Task') {      if ($type eq 'Task') {
  my $version=$Apache::lonhomework::history{'resource.version'};   my $version=$Apache::lonhomework::history{'resource.0.version'};
  $key ="resource.$version.checkedin";   $key ="resource.$version.0.checkedin";
     } elsif ($type eq 'problem') {      } elsif ($type eq 'problem') {
  $key ='resource.0.checkedin';   $key ='resource.0.checkedin';
     }      }
Line 260  sub check_slot_access { Line 260  sub check_slot_access {
           
     if ($type eq 'Task') {      if ($type eq 'Task') {
  my $version=$Apache::lonhomework::history{'resource.version'};   my $version=$Apache::lonhomework::history{'resource.version'};
  if ($Apache::lonhomework::history{"resource.$version.checkedin"} &&   if ($Apache::lonhomework::history{"resource.$version.0.checkedin"} &&
     $Apache::lonhomework::history{"resource.$version.status"} eq 'pass') {      $Apache::lonhomework::history{"resource.$version.0.status"} eq 'pass') {
     return ('SHOW_ANSWER');      return ('SHOW_ANSWER');
  }   }
     }      }
Line 295  sub check_slot_access { Line 295  sub check_slot_access {
  $slotstatus='CAN_ANSWER';   $slotstatus='CAN_ANSWER';
     }      }
   
     my ($pass_status,$checkedin);      my ($got_grade,$checkedin);
     if ($type eq 'Task') {      if ($type eq 'Task') {
  my $version=$Apache::lonhomework::history{'resource.version'};   my $version=$Apache::lonhomework::history{'resource.0.version'};
  $pass_status =    $got_grade = 
     $Apache::lonhomework::history{"resource.$version.status"} eq 'fail';      ($Apache::lonhomework::history{"resource.$version.0.status"} 
        =~ /^(?:pass|fail)$/);
  $checkedin =   $checkedin =
     $Apache::lonhomework::history{"resource.$version.checkedin"};      $Apache::lonhomework::history{"resource.$version.0.checkedin"};
     } elsif ($type eq 'problem') {      } elsif ($type eq 'problem') {
  $pass_status = 1;   $got_grade = 1;
  $checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};   $checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};
     }      }
           
     if ($slotstatus eq 'NOT_IN_A_SLOT'       if ($slotstatus eq 'NOT_IN_A_SLOT' 
  && $checkedin ) {   && $checkedin ) {
   
  if ($pass_status) {   if ($got_grade) {
     return ('SHOW_ANSWER');      return ('SHOW_ANSWER');
  } else {   } else {
     return ('WAITING_FOR_GRADE');      return ('WAITING_FOR_GRADE');
Removed from v.1.229  
changed lines
  Added in v.1.231

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