--- loncom/interface/lonnavmaps.pm 2006/03/04 05:55:43 1.366 +++ loncom/interface/lonnavmaps.pm 2006/03/14 22:17:55 1.370 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.366 2006/03/04 05:55:43 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.370 2006/03/14 22:17:55 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2280,7 +2280,7 @@ sub get_discussion_data { my $cdom=$env{'course.'.$cid.'.domain'}; my $cnum=$env{'course.'.$cid.'.num'}; # Retrieve discussion data for resources in course - my %discussion_data = &Apache::lonnet::dump($cid,$cdom,$cnum); + my %discussion_data = &Apache::lonnet::dumpstore($cid,$cdom,$cnum); $self->{DISCUSSION_DATA} = \%discussion_data; @@ -3657,8 +3657,7 @@ sub kind { my $self=shift; return $self- sub randomout { my $self=shift; return $self->navHash("randomout_", 1); } sub randompick { my $self = shift; - return $self->{NAV_MAP}->{PARM_HASH}->{$self->symb . - '.0.parameter_randompick'}; + return $self->parmval('randompick'); } sub link { my $self=shift; @@ -3776,6 +3775,16 @@ sub retrieveResources { return $self->{NAV_MAP}->retrieveResources(@_); } +sub is_exam { + my ($self,$part) = @_; + if ($self->parmval('type',$part) eq 'exam') { + return 1; + } + if ($self->src() =~ /\.(exam)$/) { + return 1; + } + return 0; +} sub is_html { my $self=shift; my $src = $self->src(); @@ -4258,7 +4267,7 @@ sub countResponses { sub responseTypes { my $self = shift; my %responses; - foreach my $part ($self->parts()) { + foreach my $part (@{$self->parts()}) { foreach my $responsetype ($self->responseType($part)) { $responses{$responsetype}++ if (defined($responsetype)); }