loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2003/09/26 19:23:14	version 1.91, 2003/09/29 19:48:17
Line 197 sub get_sequence_assessment_data {	Line 197 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;
	# Count how many responses of each type there are in this part
	foreach (@Responses) {
	$partdata{$part}->{$_}++;
	}
}	}
my $assessment = { title => $title,	my $assessment = { title => $title,
src => $src,	src => $src,