version 1.12, 2001/11/22 17:25:30
|
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 112 sub ExtractStudentData {
|
Line 112 sub ExtractStudentData {
|
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; |
} |
} |
} |
} |