--- loncom/interface/lonnavmaps.pm	2016/08/06 23:22:30	1.509.2.2
+++ loncom/interface/lonnavmaps.pm	2016/03/02 14:06:30	1.514
@@ -1,8 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.509.2.2 2016/08/06 23:22:30 raeburn Exp $
-
+# $Id: lonnavmaps.pm,v 1.514 2016/03/02 14:06:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2122,7 +2121,7 @@ sub change_user {
 
 
 
-    # Now clear the parm cache and reconstruct the parm hash fromt he big_hash
+    # Now clear the parm cache and reconstruct the parm hash from the big_hash
     # param.xxxx keys.
 
     $self->{PARM_CACHE} = {};
@@ -5411,13 +5410,13 @@ sub check_for_slot {
         my $cnum=$env{'course.'.$cid.'.num'};
         my $now = time;
         my $num_usable_slots = 0;
-        my ($checkedin,$checkedinslot,%consumed_uniq,%slots);
         if (@slots > 0) {
-            %slots=&Apache::lonnet::get('slots',[@slots],$cdom,$cnum);
+            my %slots=&Apache::lonnet::get('slots',[@slots],$cdom,$cnum);
             if (&Apache::lonnet::error(%slots)) {
                 return (UNKNOWN);
             }
             my @sorted_slots = &Apache::loncommon::sorted_slots(\@slots,\%slots,'starttime');
+            my ($checkedin,$checkedinslot);
             foreach my $slot_name (@sorted_slots) {
                 next if (!defined($slots{$slot_name}) || !ref($slots{$slot_name}));
                 my $end = $slots{$slot_name}->{'endtime'};
@@ -5451,30 +5450,19 @@ sub check_for_slot {
                     $num_usable_slots ++;
                 }
             }
-            my ($is_correct,$wait_for_grade);
+            my ($is_correct,$got_grade);
             if ($self->is_task()) {
                 my $taskstatus = $self->taskstatus();
                 $is_correct = (($taskstatus eq 'pass') || 
                                ($self->solved() =~ /^correct_/));
-                unless ($taskstatus =~ /^(?:pass|fail)$/) {
-                    $wait_for_grade = 1;
-                }
+                $got_grade = ($taskstatus =~ /^(?:pass|fail)$/);
             } else {
-                unless ($self->completable()) {
-                    $wait_for_grade = 1;
-                }
-                unless (($self->problemstatus($part) eq 'no') ||
-                        ($self->problemstatus($part) eq 'no_feedback_ever')) {
-                    $is_correct = ($self->solved($part) =~ /^correct_/);
-                    $wait_for_grade = 0;
-                }
+                $got_grade = 1;
+                $is_correct = ($self->solved() =~ /^correct_/);   
             }
             ($checkedin,$checkedinslot) = $self->checkedin();
             if ($checkedin) {
-                if (ref($slots{$checkedinslot}) eq 'HASH') {
-                    $consumed_uniq{$checkedinslot} = $slots{$checkedinslot}{'uniqueperiod'};
-                }
-                if ($wait_for_grade) {
+                if (!$got_grade) {
                     return (WAITING_FOR_GRADE);
                 } elsif ($is_correct) {
                     return (CORRECT); 
@@ -5487,25 +5475,31 @@ sub check_for_slot {
         my $reservable = &Apache::lonnet::get_reservable_slots($cnum,$cdom,$env{'user.name'},
                                                                $env{'user.domain'});
         if (ref($reservable) eq 'HASH') {
+            my ($map) = &Apache::lonnet::decode_symb($symb);
             if ((ref($reservable->{'now_order'}) eq 'ARRAY') && (ref($reservable->{'now'}) eq 'HASH')) {
                 foreach my $slot (reverse (@{$reservable->{'now_order'}})) {
                     my $canuse;
-                    if (($reservable->{'now'}{$slot}{'symb'} eq '') ||
-                        ($reservable->{'now'}{$slot}{'symb'} eq $symb)) {
+                    if ($reservable->{'now'}{$slot}{'symb'} eq '') {
                         $canuse = 1;
-                    }
-                    if ($canuse) {
-                        if ($checkedin) {
-                            if (ref($consumed_uniq{$checkedinslot}) eq 'ARRAY') {
-                                my ($uniqstart,$uniqend)=@{$consumed_uniq{$checkedinslot}};
-                                if ($reservable->{'now'}{$slot}{'uniqueperiod'} =~ /^(\d+),(\d+)$/) {
-                                    my ($new_uniq_start,$new_uniq_end) = ($1,$2);
-                                    next if (!
-                                        ($uniqstart < $new_uniq_start && $uniqend < $new_uniq_start) ||
-                                        ($uniqstart > $new_uniq_end   &&  $uniqend > $new_uniq_end  ));
+                    } else {
+                        my %oksymbs;
+                        my @slotsymbs = split(/\s*,\s*/,$reservable->{'now'}{$slot}{'symb'});
+                        map { $oksymbs{$_} = 1; } @slotsymbs;
+                        if ($oksymbs{$symb}) {
+                            $canuse = 1;
+                        } else {
+                            foreach my $item (@slotsymbs) {
+                                if ($item =~ /\.(page|sequence)$/) {
+                                    (undef,undef, my $sloturl) = &Apache::lonnet::decode_symb($item);
+                                    if (($map ne '') && ($map eq $sloturl)) {
+                                        $canuse = 1;
+                                        last;
+                                    }
                                 }
                             }
                         }
+                    }
+                    if ($canuse) {
                         return(RESERVABLE,$reservable->{'now'}{$slot}{'endreserve'});
                     }
                 }
@@ -5513,22 +5507,29 @@ sub check_for_slot {
             if ((ref($reservable->{'future_order'}) eq 'ARRAY') && (ref($reservable->{'future'}) eq 'HASH')) {
                 foreach my $slot (@{$reservable->{'future_order'}}) {
                     my $canuse;
-                    if (($reservable->{'future'}{$slot}{'symb'} eq '') ||
-                        ($reservable->{'future'}{$slot}{'symb'} eq $symb)) {
+                    if ($reservable->{'future'}{$slot}{'symb'} eq '') {
                         $canuse = 1;
-                    }
-                    if ($canuse) {
-                        if ($checkedin) {
-                            if (ref($consumed_uniq{$checkedinslot}) eq 'ARRAY') {
-                                my ($uniqstart,$uniqend)=@{$consumed_uniq{$checkedinslot}};
-                                if ($reservable->{'future'}{$slot}{'uniqueperiod'} =~ /^(\d+),(\d+)$/) {
-                                    my ($new_uniq_start,$new_uniq_end) = ($1,$2);
-                                    next if (!
-                                        ($uniqstart < $new_uniq_start && $uniqend < $new_uniq_start) ||
-                                        ($uniqstart > $new_uniq_end   &&  $uniqend > $new_uniq_end  ));
+                    } elsif ($reservable->{'future'}{$slot}{'symb'} =~ /,/) {
+                        my %oksymbs;
+                        my @slotsymbs = split(/\s*,\s*/,$reservable->{'future'}{$slot}{'symb'});
+                        map { $oksymbs{$_} = 1; } @slotsymbs;
+                        if ($oksymbs{$symb}) {
+                            $canuse = 1;
+                        } else {
+                            foreach my $item (@slotsymbs) {
+                                if ($item =~ /\.(page|sequence)$/) {
+                                    (undef,undef, my $sloturl) = &Apache::lonnet::decode_symb($item);
+                                    if (($map ne '') && ($map eq $sloturl)) {
+                                        $canuse = 1;
+                                        last;
+                                    }
                                 }
                             }
                         }
+                    } elsif ($reservable->{'future'}{$slot}{'symb'} eq $symb) {
+                        $canuse = 1;
+                    }
+                    if ($canuse) {
                         return(RESERVABLE_LATER,$reservable->{'future'}{$slot}{'startreserve'});
                     }
                 }