--- loncom/interface/loncoursedata.pm 2003/02/25 20:36:29 1.52 +++ loncom/interface/loncoursedata.pm 2003/02/28 20:41:27 1.53 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.52 2003/02/25 20:36:29 matthew Exp $ +# $Id: loncoursedata.pm,v 1.53 2003/02/28 20:41:27 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -280,7 +280,6 @@ The returned structure is a hash referen source => '/s/o/u/r/c/e', type => (container|assessment), num_assess => 2, # only for container - contents => [ {},{},{},{} ], # only for container parts => [11,13,15], # only for assessment response_ids => [12,14,16], # only for assessment contents => [........] # only for container @@ -324,6 +323,7 @@ sub get_sequence_assessment_data { symb => $symb, type => 'container', num_assess => 0, + num_assess_parts => 0, contents => [], }; push (@Sequences,$top); push (@Nested_Sequences, $top); @@ -369,10 +369,13 @@ sub get_sequence_assessment_data { src => $src, symb => $symb, type => 'assessment', + parts => $parts, + num_parts => scalar(@$parts), }; push(@Assessments,$assessment); push(@{$currentmap->{'contents'}},$assessment); $currentmap->{'num_assess'}++; + $currentmap->{'num_assess_parts'}+= scalar(@$parts); } return ($top,\@Sequences,\@Assessments); }