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

Diff for /loncom/homework/lonhomework.pm between versions 1.248 and 1.251

version 1.248, 2006/05/16 21:21:32 version 1.251, 2006/06/20 03:33:55
Line 170  sub proctor_checked_in { Line 170  sub proctor_checked_in {
     } elsif ($type eq 'problem') {      } elsif ($type eq 'problem') {
  $key ='resource.0.checkedin';   $key ='resource.0.checkedin';
     }      }
           # backward compatability, used to be username@domain, 
       # now is username:domain
       my $who = $Apache::lonhomework::history{$key};
       if ($who !~ /:/) {
    $who =~ tr/@/:/;
       }     
     foreach my $possible (@possible_proctors) {       foreach my $possible (@possible_proctors) { 
  if ($Apache::lonhomework::history{$key} eq $possible   if ($who eq $possible
     && $Apache::lonhomework::history{$key.'.slot'} eq $slot_name) {      && $Apache::lonhomework::history{$key.'.slot'} eq $slot_name) {
     return 1;      return 1;
  }   }
Line 240  sub check_slot_access { Line 245  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 'map') {      if ($useslots ne 'resource' && $useslots ne 'map' 
    && $useslots ne 'map_map') {
  return ($status,$datemsg);   return ($status,$datemsg);
     }      }
   
Line 481  sub check_access { Line 487  sub check_access {
 }  }
 # this should work exactly like the copy in lonnavmaps.pm  # this should work exactly like the copy in lonnavmaps.pm
 sub due_date {  sub due_date {
     my ($part_id,$symb)=@_;      my ($part_id,$symb,$udom,$uname)=@_;
     my $date;      my $date;
     my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb);      my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb,
          $udom,$uname);
     &Apache::lonxml::debug("looking for interval $part_id $symb $interval");      &Apache::lonxml::debug("looking for interval $part_id $symb $interval");
     my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb);      my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb,
          $udom,$uname);
     &Apache::lonxml::debug("looking for due_date $part_id $symb $due_date");      &Apache::lonxml::debug("looking for due_date $part_id $symb $due_date");
     if (defined($interval)) {      if (defined($interval)) {
  my $first_access=&Apache::lonnet::get_first_access('map',$symb);   my $first_access=&Apache::lonnet::get_first_access('map',$symb);
Removed from v.1.248  
changed lines
  Added in v.1.251

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