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}->{$_}++; |