--- loncom/interface/lonnavmaps.pm	2003/04/18 13:51:46	1.176
+++ loncom/interface/lonnavmaps.pm	2003/05/05 17:44:03	1.184
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.176 2003/04/18 13:51:46 www Exp $
+# $Id: lonnavmaps.pm,v 1.184 2003/05/05 17:44:03 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -169,30 +169,80 @@ sub real_handler {
         return OK;
     }
 
-    # See if there's only one map in the top-level... if so,
-    # automatically display it
-    my $iterator = $navmap->getIterator(undef, undef, undef, 0);
-    my $depth = 1;
-    $iterator->next();
-    my $curRes = $iterator->next();
-    my $sequenceCount = 0;
-    my $sequenceId;
-    while ($depth > 0) {
-        if ($curRes == $iterator->BEGIN_MAP()) { $depth++; }
-        if ($curRes == $iterator->END_MAP()) { $depth--; }
-
-        if (ref($curRes) && $curRes->is_sequence()) {
-            $sequenceCount++;
-            $sequenceId = $curRes->map_pc();
+    # See if there's only one map in the top-level, if we don't
+    # already have a filter... if so, automatically display it
+    if ($ENV{QUERY_STRING} !~ /filter/) {
+        my $iterator = $navmap->getIterator(undef, undef, undef, 0);
+        my $depth = 1;
+        $iterator->next();
+        my $curRes = $iterator->next();
+        my $sequenceCount = 0;
+        my $sequenceId;
+        while ($depth > 0) {
+            if ($curRes == $iterator->BEGIN_MAP()) { $depth++; }
+            if ($curRes == $iterator->END_MAP()) { $depth--; }
+            
+            if (ref($curRes) && $curRes->is_sequence()) {
+                $sequenceCount++;
+                $sequenceId = $curRes->map_pc();
+            }
+            
+            $curRes = $iterator->next();
+        }
+        
+        if ($sequenceCount == 1) {
+            # The automatic iterator creation in the render call 
+            # will pick this up. We know the condition because
+            # the defined($ENV{'form.filter'}) also ensures this
+            # is a fresh call.
+            $ENV{'form.filter'} = "$sequenceId";
         }
-
-        $curRes = $iterator->next();
     }
 
-    if ($sequenceCount == 1) {
-        # The automatic iterator creation in the render call 
-        # will pick this up.
-        $ENV{'form.filter'} = "$sequenceId";
+    # Check to see if the student is jumping to next open, do-able problem
+    if ($ENV{QUERY_STRING} eq 'jumpToFirstHomework') {
+        # Find the next homework problem that they can do.
+        my $iterator = $navmap->getIterator(undef, undef, undef, 1);
+        my $depth = 1;
+        $iterator->next();
+        my $curRes = $iterator->next();
+        my $foundDoableProblem = 0;
+        my $problemRes;
+        
+        while ($depth > 0 && !$foundDoableProblem) {
+            if ($curRes == $iterator->BEGIN_MAP()) { $depth++; }
+            if ($curRes == $iterator->END_MAP()) { $depth--; }
+
+            if (ref($curRes) && $curRes->is_problem()) {
+                my $status = $curRes->status();
+                if (($status == $curRes->OPEN || 
+                     $status == $curRes->TRIES_LEFT()) &&
+                    $curRes->getCompletionStatus() != $curRes->ATTEMPTED()) {
+                    $problemRes = $curRes;
+                    $foundDoableProblem = 1;
+
+                    # Pop open all previous maps
+                    my $stack = $iterator->getStack();
+                    pop @$stack; # last resource in the stack is the problem
+                                 # itself, which we don't need in the map stack
+                    my @mapPcs = map {$_->map_pc()} @$stack;
+                    $ENV{'form.filter'} = join(',', @mapPcs);
+
+                    # Mark as both "here" and "jump"
+                    $ENV{'form.postsymb'} = $curRes->symb();
+                }
+            }
+        } continue {
+            $curRes = $iterator->next();
+        }
+
+        # If we found no problems, print a note to that effect.
+        if (!$foundDoableProblem) {
+            $r->print("<font size='+2'>All homework assignments have been completed.</font><br /><br />");
+        }
+    } else {
+        $r->print("<a href='navmaps?jumpToFirstHomework'>" .
+                  "Go To My First Homework Problem</a><br />");
     }
 
     # renderer call
@@ -267,7 +317,9 @@ sub getDescription {
     my $part = shift;
     my $status = $res->status($part);
 
-    if ($status == $res->NETWORK_FAILURE) { return ""; }
+    if ($status == $res->NETWORK_FAILURE) { 
+        return "Having technical difficulties; please check status later"; 
+    }
     if ($status == $res->NOTHING_SET) {
         return "Not currently assigned.";
     }
@@ -343,14 +395,9 @@ sub lastTry {
 }
 
 # This puts a human-readable name on the ENV variable.
-# FIXME: This needs better logic: Who gets the advanced view of navmaps?
-#   As of 3-13-03, it's an open question. Guy doesn't want to check
-#   roles directly because it should be a check of capabilities for future
-#   role compatibity. There is no capability that matches this one for
-#   now, so this is done. (A hack for 1.0 might be to simply check roles
-#   anyhow.)
+
 sub advancedUser {
-    return $ENV{'user.adv'};
+    return $ENV{'request.role.adv'};
 }
 
 
@@ -1473,15 +1520,13 @@ sub init {
             unless ((time-$courserdatas{$cid.'.last_cache'})<240) {
                 my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.
                                                  ':resourcedata',$chome);
-                if ($reply!~/^error\:/) {
+                # Check for network failure
+                if ( $reply =~ /no.such.host/i || $reply =~ /con_lost/i) {
+                    $self->{NETWORK_FAILURE} = 1;
+                } elsif ($reply!~/^error\:/) {
                     $courserdatas{$cid}=$reply;
                     $courserdatas{$cid.'.last_cache'}=time;
                 }
-                # check to see if network failed
-                elsif ( $reply=~/no.such.host/i || $reply=~/con.*lost/i )
-                {
-                    $self->{NETWORK_FAILURE} = 1;
-                }
             }
             foreach (split(/\&/,$courserdatas{$cid})) {
                 my ($name,$value)=split(/\=/,$_);
@@ -3070,7 +3115,16 @@ sub countParts {
     return scalar(@{$parts}) + $delta;
 }
 
-# Private function: Extracts the parts information and saves it
+sub partType {
+    my $self = shift;
+    my $part = shift;
+
+    $self->extractParts();
+    return $self->{PART_TYPE}->{$part};
+}
+
+# Private function: Extracts the parts information, both part names and
+# part types, and saves it
 sub extractParts { 
     my $self = shift;
     
@@ -3079,26 +3133,35 @@ sub extractParts {
 
     $self->{PARTS} = [];
 
+    my %parts;
+
     # Retrieve part count, if this is a problem
     if ($self->is_problem()) {
         my $metadata = &Apache::lonnet::metadata($self->src(), 'packages');
         if (!$metadata) {
             $self->{RESOURCE_ERROR} = 1;
             $self->{PARTS} = [];
+            $self->{PART_TYPE} = {};
             return;
         }
         foreach (split(/\,/,$metadata)) {
             if ($_ =~ /^part_(.*)$/) {
                 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());
+                  }
+
                 # check to see if part is turned off.
-                if (! Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
-                    push @{$self->{PARTS}}, $1;
+
+                if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
+                    $parts{$part} = 1;
                 }
             }
         }
         
         
-        my @sortedParts = sort @{$self->{PARTS}};
+        my @sortedParts = sort keys %parts;
         $self->{PARTS} = \@sortedParts;
     }