--- loncom/interface/lonnavmaps.pm	2004/05/05 21:04:14	1.259
+++ loncom/interface/lonnavmaps.pm	2004/06/15 15:50:03	1.262
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.259 2004/05/05 21:04:14 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.262 2004/06/15 15:50:03 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -137,7 +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_topic('Navigation_Screen').
+	&Apache::loncommon::help_open_bug('RAT'));
 
     $r->rflush();
 
@@ -3241,6 +3243,17 @@ sub is_sequence {
     return $self->navHash("is_map_", 1) && 
 	$self->navHash("map_type_" . $self->map_pc()) eq 'sequence';
 }
+sub is_survey {
+    my $self = shift();
+    my $part = shift();
+    if ($self->src() =~ /\.(survey)$/) {
+        return 1;
+    }
+    if ($self->parmval('type',$part) eq 'survey') {
+        return 1;
+    }
+    return 0;
+}
 
 # Private method: Shells out to the parmval in the nav map, handler parts.
 sub parmval {
@@ -3417,6 +3430,11 @@ sub awarded {
 }
 sub duedate {
     (my $self, my $part) = @_;
+    my $interval=$self->parmval("interval", $part);
+    if ($interval) {
+	my $first_access=&Apache::lonnet::get_first_access('map',$self->symb);
+	if ($first_access) { return ($first_access+$interval); }
+    }
     return $self->parmval("duedate", $part);
 }
 sub maxtries {