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

Diff for /loncom/homework/bridgetask.pm between versions 1.174 and 1.178

version 1.174, 2006/06/20 03:33:55 version 1.178, 2006/06/23 22:32:39
Line 50  my %dimension; Line 50  my %dimension;
 sub initialize_bridgetask {  sub initialize_bridgetask {
     # id of current Dimension, 0 means that no dimension is current       # id of current Dimension, 0 means that no dimension is current 
     # (inside <Task> only)      # (inside <Task> only)
     %Apache::bridgetask::dimension=();      @Apache::bridgetask::dimension=();
     # list of all Dimension ids seen      # list of all Dimension ids seen
     %Apache::bridgetask::top_dimensionlist=();      %Apache::bridgetask::top_dimensionlist=();
     # list of all current Instance ids      # list of all current Instance ids
Line 83  sub proctor_check_auth { Line 83  sub proctor_check_auth {
  }   }
     }      }
     if ($authenticated) {      if ($authenticated) {
  my $useslots = &Apache::lonnet::EXT("resource.0.useslots");   &check_in($type,$user,$domain,$slot_name);
  if ( $useslots eq 'map_map') {  
     &checkin_resource($user,$domain,$slot_name);  
  } else {  
     &create_new_version($type,$user,$domain,$slot_name);  
  }  
  return 1;   return 1;
     }      }
  }   }
Line 112  sub check_in_sequence { Line 107  sub check_in_sequence {
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     my ($symb) = &Apache::lonxml::whichuser();      my ($symb) = &Apache::lonxml::whichuser();
     my ($map)  = &Apache::lonnet::decode_symb($symb);      my ($map)  = &Apache::lonnet::decode_symb($symb);
     my @resources = $navmap->retrieveResources($map,undef,1,0);      my @resources = 
    $navmap->retrieveResources($map, sub { $_[0]->is_problem() },0,0);
     my %old_history = %Apache::lonhomework::history;      my %old_history = %Apache::lonhomework::history;
     my %old_results = %Apache::lonhomework::results;      my %old_results = %Apache::lonhomework::results;
   
Line 148  sub create_new_version { Line 144  sub create_new_version {
  #setup new version and who did it   #setup new version and who did it
         $Apache::lonhomework::results{'resource.0.version'}=$version;          $Apache::lonhomework::results{'resource.0.version'}=$version;
  $id = "$version.0";   $id = "$version.0";
  if (!defined($user) || defined($domain)) {   if (!defined($user) || !defined($domain)) {
     $user = $env{'user.name'};      $user = $env{'user.name'};
     $domain = $env{'user.domain'};      $domain = $env{'user.domain'};
  }   }
Line 598  sub start_Task { Line 594  sub start_Task {
  ($status,$accessmsg,my $slot_name,$slot) =    ($status,$accessmsg,my $slot_name,$slot) = 
     &Apache::lonhomework::check_slot_access('0','Task');      &Apache::lonhomework::check_slot_access('0','Task');
  if ($status eq 'CAN_ANSWER' && $version eq '') {   if ($status eq 'CAN_ANSWER' && $version eq '') {
     # CAN_ANSWR mode, and no current version, unproctored access      # CAN_ANSWER mode, and no current version, unproctored access
     # thus self-checkedin      # thus self-checkedin
     &check_in('Task',undef,undef,$slot_name);      &check_in('Task',undef,undef,$slot_name);
     &add_to_queue('gradingqueue',{'type' => 'Task',      &add_to_queue('gradingqueue',{'type' => 'Task',
Removed from v.1.174  
changed lines
  Added in v.1.178

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