--- loncom/interface/lonnavmaps.pm	2004/06/15 14:12:56	1.261
+++ loncom/interface/lonnavmaps.pm	2004/07/03 20:45:23	1.265
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.261 2004/06/15 14:12:56 matthew Exp $
+# $Id: lonnavmaps.pm,v 1.265 2004/07/03 20:45:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -137,8 +137,9 @@ sub real_handler {
     $r->print('</head>'.
               &Apache::loncommon::bodytag('Navigate Course Contents','',
                                     $addentries,'','',$ENV{'form.register'}));
-    $r->print('<script>window.focus();</script>');
-
+    $r->print('<script>window.focus();</script>'.
+	      &Apache::loncommon::help_open_menu('','Navigation Screen','Navigation_Screen','',undef,'RAT'));
+     
     $r->rflush();
 
     # Check that it's defined
@@ -3244,10 +3245,10 @@ sub is_sequence {
 sub is_survey {
     my $self = shift();
     my $part = shift();
-    if ($self->src() =~ /\.(survey)$/) {
+    if ($self->parmval('type',$part) eq 'survey') {
         return 1;
     }
-    if ($self->parmval('type',$part) eq 'survey') {
+    if ($self->src() =~ /\.(survey)$/) {
         return 1;
     }
     return 0;
@@ -3733,6 +3734,20 @@ sub extractParts {
                 }
             }
         }
+	my $resorder = &Apache::lonnet::metadata($self->src(),'responseorder');
+	if ($resorder) {
+	    my @resorder=split(/,/,$resorder);
+	    foreach my $part (keys(%responseIdHash)) {
+		my %resids = map { ($_,1) } @{ $responseIdHash{$part} };
+		my @neworder;
+		foreach my $possibleid (@resorder) {
+		    if (exists($resids{$possibleid})) {
+			push(@neworder,$possibleid);
+		    }
+		}
+		$responseIdHash{$part}=\@neworder;	
+	    }
+	}
         $self->{RESPONSE_IDS} = \%responseIdHash;
         $self->{RESPONSE_TYPES} = \%responseTypeHash;
     }