version 1.20, 2001/11/28 18:18:17
|
version 1.21, 2001/11/28 18:29:53
|
Line 15
|
Line 15
|
# 7/10/01 Behrouz Minaei |
# 7/10/01 Behrouz Minaei |
# 9/8 Gerd Kortemeyer |
# 9/8 Gerd Kortemeyer |
# 10/18/01, 10/19/01 Behrouz Minaei |
# 10/18/01, 10/19/01 Behrouz Minaei |
# 11/17/01, 11/22/01, 11/24/01 Behrouz Minaei |
# 11/17/01, 11/22/01, 11/24/01, 11/28/01 Behrouz Minaei |
|
|
package Apache::lonchart; |
package Apache::lonchart; |
|
|
Line 116 sub ExtractStudentData {
|
Line 116 sub ExtractStudentData {
|
else {$Code = ' ';} |
else {$Code = ' ';} |
$TempHash{"$Part.Code"} = $Code; |
$TempHash{"$Part.Code"} = $Code; |
# if ($test=~/*minaeibi*/) { |
# if ($test=~/*minaeibi*/) { |
$r->print($Key." PartNo =$PartNo "." Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>'); |
# $r->print($Key." PartNo =$PartNo "." Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>'); |
# } |
# } |
} |
} |
} |
} |
} |
} |
|
|
for ( my $n = 0; $n < $PartNo; $n++ ) { |
for ( my $n = 0; $n < $PartNo; $n++ ) { |
my $part = $TempHash{$n}; |
my $part = $TempHash{$n}; |
if ($TempHash{"$part.Code"} eq '*') { |
if ($TempHash{"$part.Code"} eq '*') { |
Line 132 sub ExtractStudentData {
|
Line 131 sub ExtractStudentData {
|
} |
} |
} |
} |
$Str .= $TempHash{"$part.Code"}; |
$Str .= $TempHash{"$part.Code"}; |
$r->print($n.") Part=".$part." code=$TempHash{$part.'.Code'}<br>"); |
# $r->print($n.") Part=".$part." code=$TempHash{$part.'.Code'}<br>"); |
} |
} |
} |
} |
else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}} |
else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}} |