version 1.11, 2001/11/22 17:05:07
|
version 1.13, 2001/11/24 17:31:42
|
Line 18
|
Line 18
|
# 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 Behrouz Minaei |
# 11/17/01, 11/22/01, 11/24/01 Behrouz Minaei |
|
|
package Apache::lonchart; |
package Apache::lonchart; |
|
|
Line 76 sub ExtractStudentData {
|
Line 76 sub ExtractStudentData {
|
} |
} |
$ResId=~/(\d+)\.(\d+)/; |
$ResId=~/(\d+)\.(\d+)/; |
my $meta=$hash{'src_'.$ResId}; |
my $meta=$hash{'src_'.$ResId}; |
# $r->print($m.'<br>'); |
|
# $r->rflush(); |
|
my $PartNo = 0; |
my $PartNo = 0; |
undef %TempHash; |
undef %TempHash; |
map { |
map { |
Line 92 sub ExtractStudentData {
|
Line 90 sub ExtractStudentData {
|
} |
} |
} split(/\,/,&Apache::lonnet::metadata($meta,'keys')); |
} split(/\,/,&Apache::lonnet::metadata($meta,'keys')); |
|
|
# foreach my $Key (%TempHash) { |
|
# $r->print($Key.' = '.$TempHash{$Key}.'<br>'); |
|
# $r->rflush(); |
|
# } |
|
|
|
$r->print($PartNo.'<br>');$r->rflush(); |
|
|
|
my $Prob = &Apache::lonnet::declutter( $hash{'map_id_'.$1} ). |
my $Prob = &Apache::lonnet::declutter( $hash{'map_id_'.$1} ). |
'___'.$2.'___'. |
'___'.$2.'___'. |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} ); |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} ); |
$Code=' '; |
$Code=' '; |
$Tries = 0; |
$Tries = 0; |
$LatestVersion = $result{"version:$Prob"}; |
$LatestVersion = $result{"version:$Prob"}; |
|
|
#undef %TempHash; |
|
#my $PartNo = 0; |
|
|
|
if ( $LatestVersion ) { |
if ( $LatestVersion ) { |
for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) { |
for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) { |
Line 116 $r->print($PartNo.'<br>');$r->rflush();
|
Line 104 $r->print($PartNo.'<br>');$r->rflush();
|
foreach my $Key (@keys) { |
foreach my $Key (@keys) { |
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) { |
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) { |
my $Part = $1; |
my $Part = $1; |
#if ( $TempHash{"$Part"} eq '' ) { |
|
# $TempHash{"$Part"} = $Part; |
|
#$TempHash{$PartNo}=$Part; |
|
#$TempHash{"$Part.Code"} = ' '; |
|
#$PartNo++; |
|
#} |
|
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"}; |
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"}; |
$Tries = $result{"$Version:$Prob:resource.$Part.tries"}; |
$Tries = $result{"$Version:$Prob:resource.$Part.tries"}; |
my $Val = $result{"$Version:$Prob:$Key"}; |
my $Val = $result{"$Version:$Prob:$Key"}; |
Line 130 $r->print($PartNo.'<br>');$r->rflush();
|
Line 112 $r->print($PartNo.'<br>');$r->rflush();
|
elsif ($Val eq 'incorrect_attempted'){$Code = '.';} |
elsif ($Val eq 'incorrect_attempted'){$Code = '.';} |
elsif ($Val eq 'incorrect_by_override'){$Code = '-';} |
elsif ($Val eq 'incorrect_by_override'){$Code = '-';} |
elsif ($Val eq 'excused'){$Code = 'x';} |
elsif ($Val eq 'excused'){$Code = 'x';} |
|
else {$Code = ' ';} |
$TempHash{"$Part.Code"} = $Code; |
$TempHash{"$Part.Code"} = $Code; |
} |
} |
} |
} |