--- loncom/interface/lonnavmaps.pm 2004/05/27 22:25:14 1.260
+++ loncom/interface/lonnavmaps.pm 2004/06/28 15:09:13 1.263
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.260 2004/05/27 22:25:14 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.263 2004/06/28 15:09:13 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -137,7 +137,9 @@ sub real_handler {
$r->print(''.
&Apache::loncommon::bodytag('Navigate Course Contents','',
$addentries,'','',$ENV{'form.register'}));
- $r->print('');
+ $r->print(''.
+ &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->parmval('type',$part) eq 'survey') {
+ return 1;
+ }
+ if ($self->src() =~ /\.(survey)$/) {
+ return 1;
+ }
+ return 0;
+}
# Private method: Shells out to the parmval in the nav map, handler parts.
sub parmval {