version 1.13, 2002/08/13 00:37:18
|
version 1.14, 2002/08/14 13:13:37
|
Line 680 sub ExtractStudentData {
|
Line 680 sub ExtractStudentData {
|
my $totalProblems = 0; |
my $totalProblems = 0; |
my $problemsSolved = 0; |
my $problemsSolved = 0; |
my $numberOfParts = 0; |
my $numberOfParts = 0; |
|
my $totalAwarded = 0; |
foreach my $sequence (split(':', $data->{'orderedSequences'})) { |
foreach my $sequence (split(':', $data->{'orderedSequences'})) { |
foreach my $problemID (split(':', $data->{$sequence.':problems'})) { |
foreach my $problemID (split(':', $data->{$sequence.':problems'})) { |
my $problem = $data->{$problemID.':problem'}; |
my $problem = $data->{$problemID.':problem'}; |
Line 693 sub ExtractStudentData {
|
Line 694 sub ExtractStudentData {
|
':parts'})) { |
':parts'})) { |
$totalProblems++; |
$totalProblems++; |
} |
} |
|
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0; |
|
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; |
|
$output->{$name.':'.$problemID.':'.$part.':code'} = ' '; |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
next; |
next; |
} |
} |
Line 791 sub ExtractStudentData {
|
Line 795 sub ExtractStudentData {
|
$partData{$part.':code'}; |
$partData{$part.':code'}; |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = |
$partData{$part.':awarded'}; |
$partData{$part.':awarded'}; |
|
$totalAwarded += $partData{$part.':awarded'}; |
$output->{$name.':'.$problemID.':'.$part.':timestamp'} = |
$output->{$name.':'.$problemID.':'.$part.':timestamp'} = |
$partData{$part.':timestamp'}; |
$partData{$part.':timestamp'}; |
foreach my $response (split(':', $data->{$sequence.':'. |
foreach my $response (split(':', $data->{$sequence.':'. |
Line 813 sub ExtractStudentData {
|
Line 818 sub ExtractStudentData {
|
|
|
$output->{$name.':problemsSolved'} = $problemsSolved; |
$output->{$name.':problemsSolved'} = $problemsSolved; |
$output->{$name.':totalProblems'} = $totalProblems; |
$output->{$name.':totalProblems'} = $totalProblems; |
|
$output->{$name.':totalAwarded'} = $totalAwarded; |
|
|
return; |
return; |
} |
} |