loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.260, 2004/05/27 22:25:14
+version 1.261, 2004/06/15 14:12:56
  Line 3241  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 {