version 1.8, 2001/10/19 22:03:05
|
version 1.9, 2001/10/22 14:52:14
|
Line 82 sub ExtractStudentData {
|
Line 82 sub ExtractStudentData {
|
my $Part = $1; |
my $Part = $1; |
if ( $TempHash{"$Part"} eq '' ) { |
if ( $TempHash{"$Part"} eq '' ) { |
$TempHash{"$Part"} = $Part; |
$TempHash{"$Part"} = $Part; |
$TempHash{$PartNo}=$Part; |
$TempHash{$PartNo}=$Part; |
|
$TempHash{"$Part.Code"} = ' '; |
$PartNo++; |
$PartNo++; |
} |
} |
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"}; |
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"}; |