--- loncom/interface/lonnavmaps.pm	2015/04/13 16:46:43	1.506
+++ loncom/interface/lonnavmaps.pm	2015/10/05 16:23:49	1.511
@@ -1,8 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.506 2015/04/13 16:46:43 raeburn Exp $
-
+# $Id: lonnavmaps.pm,v 1.511 2015/10/05 16:23:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -624,44 +623,52 @@ sub getDescription {
     if ($status == $res->OPEN_LATER) {
         return &mt("Open [_1]",&Apache::lonhtmlcommon::direct_parm_link(&timeToHumanString($open,'start'),$res->symb(),'opendate',$part));
     }
+    my $slotinfo;
     if ($res->simpleStatus($part) == $res->OPEN) {
         unless (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) {
             my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part);
+            my $slotmsg;
             if ($slot_status == $res->UNKNOWN) {
-                return &mt('Reservation status unknown');
+                $slotmsg = &mt('Reservation status unknown');
             } elsif ($slot_status == $res->RESERVED) {
-                return &mt('Reserved - ends [_1]',
+                $slotmsg = &mt('Reserved - ends [_1]',
                            timeToHumanString($slot_time,'end'));
             } elsif ($slot_status == $res->RESERVED_LOCATION) {
-                return &mt('Reserved - specific location(s) - ends [_1]',
+                $slotmsg = &mt('Reserved - specific location(s) - ends [_1]',
                            timeToHumanString($slot_time,'end'));
             } elsif ($slot_status == $res->RESERVED_LATER) {
-                return &mt('Reserved - next open [_1]',
+                $slotmsg = &mt('Reserved - next open [_1]',
                            timeToHumanString($slot_time,'start'));
             } elsif ($slot_status == $res->RESERVABLE) {
-                return &mt('Reservable, reservations close [_1]',
+                $slotmsg = &mt('Reservable, reservations close [_1]',
                            timeToHumanString($slot_time,'end'));
             } elsif ($slot_status == $res->RESERVABLE_LATER) {
-                return &mt('Reservable, reservations open [_1]',
+                $slotmsg = &mt('Reservable, reservations open [_1]',
                            timeToHumanString($slot_time,'start'));
             } elsif ($slot_status == $res->NOT_IN_A_SLOT) {
-                return &mt('Reserve a time/place to work');
+                $slotmsg = &mt('Reserve a time/place to work');
             } elsif ($slot_status == $res->NOTRESERVABLE) {
-                return &mt('Reservation not available');
+                $slotmsg = &mt('Reservation not available');
             } elsif ($slot_status == $res->WAITING_FOR_GRADE) {
-                return &mt('Submission in grading queue');
+                $slotmsg = &mt('Submission in grading queue');
+            }
+            if ($slotmsg) {
+                if ($res->is_task() || !$due) {
+                     return $slotmsg;
+                }
+                $slotinfo = (' ' x 2).'('.$slotmsg.')';
             }
         }
     }
     if ($status == $res->OPEN) {
         if ($due) {
 	    if ($res->is_practice()) {
-		return &mt("Closes [_1]",&Apache::lonhtmlcommon::direct_parm_link(&timeToHumanString($due,'start'),$res->symb(),'duedate',$part));
+		return &mt("Closes [_1]",&Apache::lonhtmlcommon::direct_parm_link(&timeToHumanString($due,'start'),$res->symb(),'duedate',$part)).$slotinfo;
 	    } else {
-		return &mt("Due [_1]",&Apache::lonhtmlcommon::direct_parm_link(&timeToHumanString($due,'end'),$res->symb(),'duedate',$part));
+		return &mt("Due [_1]",&Apache::lonhtmlcommon::direct_parm_link(&timeToHumanString($due,'end'),$res->symb(),'duedate',$part)).$slotinfo;
 	    }
         } else {
-            return &Apache::lonhtmlcommon::direct_parm_link(&mt("Open, no due date"),$res->symb(),'duedate',$part);
+            return &Apache::lonhtmlcommon::direct_parm_link(&mt("Open, no due date"),$res->symb(),'duedate',$part).$slotinfo;
         }
     }
     if ($status == $res->PAST_DUE_ANSWER_LATER) {
@@ -3860,9 +3867,12 @@ sub new {
     # about this resource in. Not used by the resource object
     # directly.
     $self->{DATA} = {};
-   
+    
     bless($self);
     
+    # This is a speed optimization, to avoid calling symb() too often.
+    $self->{SYMB} = $self->symb();
+   
     return $self;
 }
 
@@ -3974,8 +3984,8 @@ sub src {
 }
 sub shown_symb {
     my $self=shift;
-    if ($self->encrypted()) {return &Apache::lonenc::encrypted($self->symb());}
-    return $self->symb();
+    if ($self->encrypted()) {return &Apache::lonenc::encrypted($self->{SYMB});}
+    return $self->{SYMB};
 }
 sub id {
     my $self=shift;
@@ -3996,7 +4006,7 @@ sub symb {
 }
 sub wrap_symb {
     my $self = shift;
-    return $self->{NAV_MAP}->wrap_symb($self->symb());
+    return $self->{NAV_MAP}->wrap_symb($self->{SYMB});
 }
 sub title { 
     my $self=shift; 
@@ -4219,7 +4229,7 @@ sub parmval {
     if (!defined($part)) { 
         $part = '0'; 
     }
-    return $self->{NAV_MAP}->parmval($part.'.'.$what, $self->symb());
+    return $self->{NAV_MAP}->parmval($part.'.'.$what, $self->{SYMB});
 }
 
 =pod
@@ -4472,25 +4482,25 @@ sub awarded {
     my $self = shift; my $part = shift;
     $self->{NAV_MAP}->get_user_data();
     if (!defined($part)) { $part = '0'; }
-    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$part.'.awarded'};
+    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$part.'.awarded'};
 }
 sub taskversion {
     my $self = shift; my $part = shift;
     $self->{NAV_MAP}->get_user_data();
     if (!defined($part)) { $part = '0'; }
-    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$part.'.version'};
+    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$part.'.version'};
 }
 sub taskstatus {
     my $self = shift; my $part = shift;
     $self->{NAV_MAP}->get_user_data();
     if (!defined($part)) { $part = '0'; }
-    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$self->taskversion($part).'.'.$part.'.status'};
+    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$self->taskversion($part).'.'.$part.'.status'};
 }
 sub solved {
     my $self = shift; my $part = shift;
     $self->{NAV_MAP}->get_user_data();
     if (!defined($part)) { $part = '0'; }
-    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$part.'.solved'};
+    return $self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$part.'.solved'};
 }
 sub checkedin {
     my $self = shift; my $part = shift;
@@ -4498,9 +4508,9 @@ sub checkedin {
     if (!defined($part)) { $part = '0'; }
     if ($self->is_task()) {
         my $version = $self->taskversion($part);
-        return ($self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$version .'.'.$part.'.checkedin'},$self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$version .'.'.$part.'.checkedin.slot'});
+        return ($self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$version .'.'.$part.'.checkedin'},$self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$version .'.'.$part.'.checkedin.slot'});
     } else {
-        return ($self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$part.'.checkedin'},$self->{NAV_MAP}->{STUDENT_DATA}->{$self->symb()}->{'resource.'.$part.'.checkedin.slot'});
+        return ($self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$part.'.checkedin'},$self->{NAV_MAP}->{STUDENT_DATA}->{$self->{SYMB}}->{'resource.'.$part.'.checkedin.slot'});
     }
 }
 # this should work exactly like the copy in lonhomework.pm
@@ -4592,7 +4602,7 @@ sub weight {
     my $self = shift; my $part = shift;
     if (!defined($part)) { $part = '0'; }
     my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight',
-                                $self->symb(), $self->{DOMAIN},
+                                $self->{SYMB}, $self->{DOMAIN},
                                 $self->{USERNAME},
                                 $env{'request.course.sec'});
     return $weight;
@@ -4621,7 +4631,7 @@ sub getReturnHash {
     my $self = shift;
     
     if (!defined($self->{RETURN_HASH})) {
-        my %tmpHash  = &Apache::lonnet::restore($self->symb(),undef,$self->{DOMAIN},$self->{USERNAME});
+        my %tmpHash  = &Apache::lonnet::restore($self->{SYMB},undef,$self->{DOMAIN},$self->{USERNAME});
         $self->{RETURN_HASH} = \%tmpHash;
     }
 }       
@@ -4686,23 +4696,23 @@ and use the link as appropriate.
 
 sub hasDiscussion {
     my $self = shift;
-    return $self->{NAV_MAP}->hasDiscussion($self->symb());
+    return $self->{NAV_MAP}->hasDiscussion($self->{SYMB});
 }
 
 sub last_post_time {
     my $self = shift;
-    return $self->{NAV_MAP}->last_post_time($self->symb());
+    return $self->{NAV_MAP}->last_post_time($self->{SYMB});
 }
 
 sub discussion_info {
     my ($self,$filter) = @_;
-    return $self->{NAV_MAP}->discussion_info($self->symb(),$filter);
+    return $self->{NAV_MAP}->discussion_info($self->{SYMB},$filter);
 }
 
 sub getFeedback {
     my $self = shift;
     my $source = $self->src();
-    my $symb = $self->symb();
+    my $symb = $self->{SYMB};
     if ($source =~ /^\/res\//) { $source = substr $source, 5; }
     return $self->{NAV_MAP}->getFeedback($symb,$source);
 }
@@ -4710,7 +4720,7 @@ sub getFeedback {
 sub getErrors {
     my $self = shift;
     my $source = $self->src();
-    my $symb = $self->symb();
+    my $symb = $self->{SYMB};
     if ($source =~ /^\/res\//) { $source = substr $source, 5; }
     return $self->{NAV_MAP}->getErrors($symb,$source);
 }
@@ -4860,7 +4870,7 @@ sub extractParts {
 	if ($partorder) {
 	    my @parts;
 	    for my $part (split (/,/,$partorder)) {
-		if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
+		if (!Apache::loncommon::check_if_partid_hidden($part, $self->{SYMB})) {
 		    push @parts, $part;
 		    $parts{$part} = 1;
 		}
@@ -4878,12 +4888,12 @@ sub extractParts {
 		    my $part = $1;
 		    # This floods the logs if it blows up
 		    if (defined($parts{$part})) {
-			&Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb());
+			&Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->{SYMB});
 		    }
 		    
 		    # check to see if part is turned off.
 		    
-		    if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
+		    if (!Apache::loncommon::check_if_partid_hidden($part, $self->{SYMB})) {
 			$parts{$part} = 1;
 		    }
 		}
@@ -5388,7 +5398,7 @@ sub status {
 sub check_for_slot {
     my $self = shift;
     my $part = shift;
-    my $symb = $self->symb();
+    my $symb = $self->{SYMB};
     my ($use_slots,$available,$availablestudent) = $self->slot_control($part);
     if (($use_slots ne '') && ($use_slots !~ /^\s*no\s*$/i)) {
         my @slots = (split(/:/,$availablestudent),split(/:/,$available));
@@ -5462,18 +5472,61 @@ 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'}})) {
-                    if (($reservable->{'now'}{$slot}{'symb'} eq '') ||
-                        ($reservable->{'now'}{$slot}{'symb'} eq $symb)) {
+                    my $canuse;
+                    if ($reservable->{'now'}{$slot}{'symb'} eq '') {
+                        $canuse = 1;
+                    } 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'});
                     }
                 }
             }
             if ((ref($reservable->{'future_order'}) eq 'ARRAY') && (ref($reservable->{'future'}) eq 'HASH')) {
                 foreach my $slot (@{$reservable->{'future_order'}}) {
-                    if (($reservable->{'future'}{$slot}{'symb'} eq '') ||
-                        ($reservable->{'future'}{$slot}{'symb'} eq $symb)) {
+                    my $canuse;
+                    if ($reservable->{'future'}{$slot}{'symb'} eq '') {
+                        $canuse = 1;
+                    } 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'});
                     }
                 }
@@ -5624,6 +5677,39 @@ sub completable {
 
 =pod
 
+B<Answerable>
+
+The answerable method differs from the completable method in its handling of problem parts
+for which feedback on correctness is suppressed, but the student still has tries left, and
+the problem part is not past due, (i.e., the student could submit a different answer if
+he/she so chose). For that case completable will return 0, whereas answerable will return 1.
+
+=cut
+
+sub answerable {
+    my $self = shift;
+    if (!$self->is_problem()) { return 0; }
+    my $partCount = $self->countParts();
+    foreach my $part (@{$self->parts()}) {
+        if ($part eq '0' && $partCount != 1) { next; }
+        my $status = $self->status($part);
+        if ($self->getCompletionStatus($part) == ATTEMPTED() ||
+            $self->getCompletionStatus($part) == CREDIT_ATTEMPTED() ||
+            $status == ANSWER_SUBMITTED() ) {
+            if ($self->tries($part) < $self->maxtries($part) || !$self->maxtries($part)) {
+                return 1;
+            }
+        }
+        if ($status == OPEN() || $status == TRIES_LEFT() || $status == NETWORK_FAILURE()) {
+            return 1;
+        }
+    }
+    # None of the parts were answerable, so neither is this problem.
+    return 0;
+}
+
+=pod
+
 =head2 Resource/Nav Map Navigation
 
 =over 4
@@ -5677,7 +5763,7 @@ sub browsePriv {
     }
 
     $self->{BROWSE_PRIV} = &Apache::lonnet::allowed('bre',$self->src(),
-						    $self->symb(),undef,
+						    $self->{SYMB},undef,
                                                     undef,$noblockcheck);
 }