[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[bowersj2]

bowersj2		Tue Apr 22 14:38:47 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Oops, we haven't done "get_unprocessed_cgi" yet; need to check querystring
  directly.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.178 loncom/interface/lonnavmaps.pm:1.179
--- loncom/interface/lonnavmaps.pm:1.178	Tue Apr 22 13:54:27 2003
+++ loncom/interface/lonnavmaps.pm	Tue Apr 22 14:38:47 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.178 2003/04/22 17:54:27 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.179 2003/04/22 18:38:47 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -171,7 +171,7 @@
 
     # 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 (!defined($ENV{'form.filter'})) {
+    if ($ENV{QUERY_STRING} !~ /filter/) {
         my $iterator = $navmap->getIterator(undef, undef, undef, 0);
         my $depth = 1;
         $iterator->next();
@@ -185,7 +185,7 @@
             if (ref($curRes) && $curRes->is_sequence()) {
                 $sequenceCount++;
                 $sequenceId = $curRes->map_pc();
-        }
+            }
             
             $curRes = $iterator->next();
         }
@@ -1226,6 +1226,8 @@
             
         # Decide what parts to show.
         if ($curRes->is_problem() && $showParts) {
+            $curRes->parts();
+            $curRes->parts();
             @parts = @{$curRes->parts()};
             $args->{'multipart'} = scalar(@parts) > 1;