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

Diff for /loncom/interface/slotrequest.pm between versions 1.135 and 1.136

version 1.135, 2017/08/11 18:58:16 version 1.136, 2017/12/22 02:00:46
Line 465  sub get_consumed_uniqueperiods { Line 465  sub get_consumed_uniqueperiods {
         return 'error: Unable to determine current status';          return 'error: Unable to determine current status';
     }      }
     my @problems = $navmap->retrieveResources(undef,      my @problems = $navmap->retrieveResources(undef,
       sub { $_[0]->is_problem() },1,0);        sub { $_[0]->is_gradable() },1,0);
     my %used_slots;      my %used_slots;
     foreach my $problem (@problems) {      foreach my $problem (@problems) {
  my $symb = $problem->symb();   my $symb = $problem->symb();
Line 805  sub release_reservation { Line 805  sub release_reservation {
         if ($passed_resource->is_map()) {          if ($passed_resource->is_map()) {
     my ($a_resource) =       my ($a_resource) = 
                 $navmap->retrieveResources($passed_resource,                   $navmap->retrieveResources($passed_resource, 
                                            sub {$_[0]->is_problem()},0,1);                                             sub {$_[0]->is_gradable()},0,1);
             $symb = $a_resource->symb();              $symb = $a_resource->symb();
         }          }
     } else {      } else {
Line 2028  sub manage_reservations { Line 2028  sub manage_reservations {
         if (ref($resource)) {          if (ref($resource)) {
             my $symb = $resource->symb();              my $symb = $resource->symb();
             $contents{$lastcontainer} ++;              $contents{$lastcontainer} ++;
             next if (!$resource->is_problem() && !$resource->is_sequence() &&               next if (!$resource->is_gradable() && !$resource->is_sequence() && 
                      !$resource->is_page());                       !$resource->is_page());
             $count ++;              $count ++;
             if (($resource->is_sequence()) || ($resource->is_page())) {              if (($resource->is_sequence()) || ($resource->is_page())) {
Line 2036  sub manage_reservations { Line 2036  sub manage_reservations {
                 $container{$lastcontainer} = $resource;                  $container{$lastcontainer} = $resource;
                 $container_title{$lastcontainer} = $resource->compTitle();                  $container_title{$lastcontainer} = $resource->compTitle();
             }              }
             if ($resource->is_problem()) {              if ($resource->is_gradable()) {
                 my ($useslots) = $resource->slot_control();                  my ($useslots) = $resource->slot_control();
                 next if (($useslots eq '') || ($useslots =~ /^\s*no\s*$/i));                  next if (($useslots eq '') || ($useslots =~ /^\s*no\s*$/i));
                 push(@ordered,$symb);                   push(@ordered,$symb); 
Removed from v.1.135  
changed lines
  Added in v.1.136

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