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, |