loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.134, 2004/06/04 17:46:10	version 1.135, 2004/06/15 14:12:56
Line 199 sub get_sequence_assessment_data {	Line 199 sub get_sequence_assessment_data {
my @Ids = $curRes->responseIds($part);	my @Ids = $curRes->responseIds($part);
$partdata{$part}->{'ResponseTypes'}= \@Responses;	$partdata{$part}->{'ResponseTypes'}= \@Responses;
$partdata{$part}->{'ResponseIds'} = \@Ids;	$partdata{$part}->{'ResponseIds'} = \@Ids;
	$partdata{$part}->{'Survey'} = $curRes->is_survey($part);
# Count how many responses of each type there are in this part	# Count how many responses of each type there are in this part
foreach (@Responses) {	foreach (@Responses) {
$partdata{$part}->{$_}++;	$partdata{$part}->{$_}++;