loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.87, 2003/09/24 15:14:41	version 1.88, 2003/09/24 18:01:01
Line 193 sub get_sequence_assessment_data {	Line 193 sub get_sequence_assessment_data {
my $parts = $curRes->parts();	my $parts = $curRes->parts();
my %partdata;	my %partdata;
foreach my $part (@$parts) {	foreach my $part (@$parts) {
$partdata{$part}->{'ResponseTypes'}= $curRes->responseType($part);	my @Responses = $curRes->responseType($part);
$partdata{$part}->{'ResponseIds'} = $curRes->responseIds($part);	my @Ids = $curRes->responseIds($part);
	$partdata{$part}->{'ResponseTypes'}= \@Responses;
	$partdata{$part}->{'ResponseIds'} = \@Ids;
}	}
my $assessment = { title => $title,	my $assessment = { title => $title,
src => $src,	src => $src,