version 1.22, 2001/11/28 18:48:33
|
version 1.24, 2001/12/18 20:06:05
|
Line 16
|
Line 16
|
# 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, 11/28/01 Behrouz Minaei |
# 11/17/01, 11/22/01, 11/24/01, 11/28/01 Behrouz Minaei |
|
# 12/18/01 Behrouz Minaei |
|
|
package Apache::lonchart; |
package Apache::lonchart; |
|
|
Line 108 sub ExtractStudentData {
|
Line 109 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';} |
|
elsif ($Val eq 'ungraded_attempted'){$Code = '#';} |
else {$Code = ' ';} |
else {$Code = ' ';} |
$TempHash{"$Part.Code"} = $Code; |
$TempHash{"$Part.Code"} = $Code; |
} |
} |
Line 181 sub tracetable {
|
Line 183 sub tracetable {
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
|
|
|
undef %hash; |
|
undef @students; |
|
undef @cols; |
|
undef @rowlabels; |
|
|
my $r=shift; |
my $r=shift; |
|
|
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
Line 228 sub handler {
|
Line 236 sub handler {
|
" +: correct by override\n". |
" +: correct by override\n". |
" -: incorrect by override\n". |
" -: incorrect by override\n". |
" .: incorrect attempted\n". |
" .: incorrect attempted\n". |
|
" #: ungraded attempted\n". |
" : not attempted\n". |
" : not attempted\n". |
" x: excused</pre><p>"); |
" x: excused</pre><p>"); |
|
|
Line 249 sub handler {
|
Line 258 sub handler {
|
|
|
# ---------------------------------------------- Read class list and row labels |
# ---------------------------------------------- Read class list and row labels |
|
|
undef @rowlabels; |
|
undef @students; |
|
|
|
my $classlst=&Apache::lonnet::reply |
my $classlst=&Apache::lonnet::reply |
('dump:'.$cdom.':'.$cnum.':classlist',$chome); |
('dump:'.$cdom.':'.$cnum.':classlist',$chome); |
my $now=time; |
my $now=time; |