version 1.26, 2002/08/30 17:11:43
|
version 1.27, 2002/08/31 18:31:15
|
Line 786 sub ExtractStudentData {
|
Line 786 sub ExtractStudentData {
|
|
|
# Output dashes for all the parts of this problem if there |
# Output dashes for all the parts of this problem if there |
# is no version information about the current problem. |
# is no version information about the current problem. |
|
$output->{$name.':'.$problemID.':NoVersion'} = 'false'; |
|
$allkeys{$name.':'.$problemID.':NoVersion'}++; |
if(!$LatestVersion) { |
if(!$LatestVersion) { |
foreach my $part (split(/\:/,$data->{$sequence.':'. |
foreach my $part (split(/\:/,$data->{$sequence.':'. |
$problemID. |
$problemID. |
Line 799 sub ExtractStudentData {
|
Line 801 sub ExtractStudentData {
|
$totalProblems++; |
$totalProblems++; |
} |
} |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
$allkeys{$name.':'.$problemID.':NoVersion'}++; |
|
next; |
next; |
} |
} |
|
|