version 1.14, 2001/11/27 21:16:11
|
version 1.15, 2001/11/28 13:57:48
|
Line 115 sub ExtractStudentData {
|
Line 115 sub ExtractStudentData {
|
elsif ($Val eq 'excused'){$Code = 'x';} |
elsif ($Val eq 'excused'){$Code = 'x';} |
else {$Code = ' ';} |
else {$Code = ' ';} |
$TempHash{"$Part.Code"} = $Code; |
$TempHash{"$Part.Code"} = $Code; |
if ($test eq $comp) { |
# if ($test=~/*minaeibi*/) { |
$r->print("$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>'); |
$r->print("$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>'); |
} |
# } |
} |
} |
} |
} |
} |
} |