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

version 1.229, 2005/12/15 23:27:22 version 1.230, 2005/12/21 17:53:25
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 297  sub check_slot_access { Line 297  sub check_slot_access {
   
     my ($pass_status,$checkedin);      my ($pass_status,$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 =    $pass_status = 
     $Apache::lonhomework::history{"resource.$version.status"} eq 'fail';      $Apache::lonhomework::history{"resource.$version.0.status"} eq '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;   $pass_status = 1;
  $checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};   $checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};

Removed from v.1.229  
changed lines
  Added in v.1.230


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