version 1.25, 2002/08/29 03:04:10
|
version 1.26, 2002/08/30 17:11:43
|
Line 693 sub ProcessStudentData {
|
Line 693 sub ProcessStudentData {
|
return; |
return; |
} |
} |
|
|
|
if(defined($cache->{$name.':keys'})) { |
|
foreach (split(':::', $cache->{$name.':keys'})) { |
|
delete $cache->{$name.':'.$_}; |
|
} |
|
} |
|
|
|
my %courseKeys; |
# user name:domain was prepended earlier in DownloadCourseInformation |
# user name:domain was prepended earlier in DownloadCourseInformation |
foreach (keys %$courseData) { |
foreach (keys %$courseData) { |
|
my $currentKey =~ s/^$name//; |
|
$courseKeys{$currentKey}++; |
$cache->{$_}=$courseData->{$_}; |
$cache->{$_}=$courseData->{$_}; |
} |
} |
|
|
|
$cache->{$name.':keys'} = join(':::', keys(%courseKeys)); |
|
|
return; |
return; |
} |
} |
|
|
Line 753 sub ExtractStudentData {
|
Line 764 sub ExtractStudentData {
|
return; |
return; |
} |
} |
|
|
|
my %allkeys; |
|
if(defined($output->{$name.':keys'})) { |
|
foreach (split(':::', $output->{$name.':keys'})) { |
|
delete $output->{$name.':'.$_}; |
|
} |
|
} |
|
|
my ($username,$domain)=split(':',$name); |
my ($username,$domain)=split(':',$name); |
|
|
my $Version; |
my $Version; |
Line 775 sub ExtractStudentData {
|
Line 793 sub ExtractStudentData {
|
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0; |
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0; |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; |
$output->{$name.':'.$problemID.':'.$part.':code'} = ' '; |
$output->{$name.':'.$problemID.':'.$part.':code'} = ' '; |
|
$allkeys{$name.':'.$problemID.':'.$part.':tries'}++; |
|
$allkeys{$name.':'.$problemID.':'.$part.':awarded'}++; |
|
$allkeys{$name.':'.$problemID.':'.$part.':code'}++; |
$totalProblems++; |
$totalProblems++; |
} |
} |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
|
$allkeys{$name.':'.$problemID.':NoVersion'}++; |
next; |
next; |
} |
} |
|
|
Line 860 sub ExtractStudentData {
|
Line 882 sub ExtractStudentData {
|
':parts'})) { |
':parts'})) { |
$output->{$name.':'.$problemID.':'.$part.':wrong'} = |
$output->{$name.':'.$problemID.':'.$part.':wrong'} = |
$partData{$part.':tries'}; |
$partData{$part.':tries'}; |
|
$allkeys{$name.':'.$problemID.':'.$part.':wrong'}++; |
|
|
if($partData{$part.':code'} eq '*') { |
if($partData{$part.':code'} eq '*') { |
$output->{$name.':'.$problemID.':'.$part.':wrong'}--; |
$output->{$name.':'.$problemID.':'.$part.':wrong'}--; |
Line 875 sub ExtractStudentData {
|
Line 898 sub ExtractStudentData {
|
$partData{$part.':code'}; |
$partData{$part.':code'}; |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = |
$partData{$part.':awarded'}; |
$partData{$part.':awarded'}; |
|
$allkeys{$name.':'.$problemID.':'.$part.':tries'}++; |
|
$allkeys{$name.':'.$problemID.':'.$part.':code'}++; |
|
$allkeys{$name.':'.$problemID.':'.$part.':awarded'}++; |
|
|
$totalAwarded += $partData{$part.':awarded'}; |
$totalAwarded += $partData{$part.':awarded'}; |
$output->{$name.':'.$problemID.':'.$part.':timestamp'} = |
$output->{$name.':'.$problemID.':'.$part.':timestamp'} = |
$partData{$part.':timestamp'}; |
$partData{$part.':timestamp'}; |
|
$allkeys{$name.':'.$problemID.':'.$part.':timestamp'}++; |
|
|
foreach my $response (split(':', $data->{$sequence.':'. |
foreach my $response (split(':', $data->{$sequence.':'. |
$problemID.':'. |
$problemID.':'. |
$part.':responseIDs'})) { |
$part.':responseIDs'})) { |
$output->{$name.':'.$problemID.':'.$part.':'.$response. |
$output->{$name.':'.$problemID.':'.$part.':'.$response. |
':submission'}=join(':::',@submissions); |
':submission'}=join(':::',@submissions); |
|
$allkeys{$name.':'.$problemID.':'.$part.':'.$response. |
|
':submission'}++; |
} |
} |
|
|
if($partData{$part.':code'} ne 'x') { |
if($partData{$part.':code'} ne 'x') { |
Line 892 sub ExtractStudentData {
|
Line 923 sub ExtractStudentData {
|
} |
} |
|
|
$output->{$name.':'.$sequence.':problemsCorrect'} = $problemsCorrect; |
$output->{$name.':'.$sequence.':problemsCorrect'} = $problemsCorrect; |
|
$allkeys{$name.':'.$sequence.':problemsCorrect'}++; |
$problemsSolved += $problemsCorrect; |
$problemsSolved += $problemsCorrect; |
$problemsCorrect=0; |
$problemsCorrect=0; |
} |
} |
Line 899 sub ExtractStudentData {
|
Line 931 sub ExtractStudentData {
|
$output->{$name.':problemsSolved'} = $problemsSolved; |
$output->{$name.':problemsSolved'} = $problemsSolved; |
$output->{$name.':totalProblems'} = $totalProblems; |
$output->{$name.':totalProblems'} = $totalProblems; |
$output->{$name.':totalAwarded'} = $totalAwarded; |
$output->{$name.':totalAwarded'} = $totalAwarded; |
|
$allkeys{$name.':problemsSolved'}++; |
|
$allkeys{$name.':totalProblems'}++; |
|
$allkeys{$name.':totalAwarded'}++; |
|
|
|
$output->{$name.':keys'} = join(':::', keys(%allkeys)); |
|
|
return; |
return; |
} |
} |