version 1.52, 2003/02/25 20:36:29
|
version 1.53, 2003/02/28 20:41:27
|
Line 280 The returned structure is a hash referen
|
Line 280 The returned structure is a hash referen
|
source => '/s/o/u/r/c/e', |
source => '/s/o/u/r/c/e', |
type => (container|assessment), |
type => (container|assessment), |
num_assess => 2, # only for container |
num_assess => 2, # only for container |
contents => [ {},{},{},{} ], # only for container |
|
parts => [11,13,15], # only for assessment |
parts => [11,13,15], # only for assessment |
response_ids => [12,14,16], # only for assessment |
response_ids => [12,14,16], # only for assessment |
contents => [........] # only for container |
contents => [........] # only for container |
Line 324 sub get_sequence_assessment_data {
|
Line 323 sub get_sequence_assessment_data {
|
symb => $symb, |
symb => $symb, |
type => 'container', |
type => 'container', |
num_assess => 0, |
num_assess => 0, |
|
num_assess_parts => 0, |
contents => [], }; |
contents => [], }; |
push (@Sequences,$top); |
push (@Sequences,$top); |
push (@Nested_Sequences, $top); |
push (@Nested_Sequences, $top); |
Line 369 sub get_sequence_assessment_data {
|
Line 369 sub get_sequence_assessment_data {
|
src => $src, |
src => $src, |
symb => $symb, |
symb => $symb, |
type => 'assessment', |
type => 'assessment', |
|
parts => $parts, |
|
num_parts => scalar(@$parts), |
}; |
}; |
push(@Assessments,$assessment); |
push(@Assessments,$assessment); |
push(@{$currentmap->{'contents'}},$assessment); |
push(@{$currentmap->{'contents'}},$assessment); |
$currentmap->{'num_assess'}++; |
$currentmap->{'num_assess'}++; |
|
$currentmap->{'num_assess_parts'}+= scalar(@$parts); |
} |
} |
return ($top,\@Sequences,\@Assessments); |
return ($top,\@Sequences,\@Assessments); |
} |
} |