--- loncom/interface/lonnavmaps.pm 2006/02/14 15:58:47 1.360 +++ loncom/interface/lonnavmaps.pm 2006/02/16 19:38:27 1.361 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.360 2006/02/14 15:58:47 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.361 2006/02/16 19:38:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3730,10 +3730,21 @@ sub is_page { return $self->navHash("is_map_", 1) && $self->navHash("map_type_" . $self->map_pc()) eq 'page'; } +sub is_practice { + my $self=shift; + my ($part) = @_; + if ($self->parmval('type',$part) eq 'practice') { + return 1; + } + return 0; +} sub is_problem { my $self=shift; my $src = $self->src(); - return ($src =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) + if ($src =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) { + return !($self->is_practice()); + } + return 0; } sub contains_problem { my $self=shift;