--- loncom/interface/Attic/lonchart.pm 2001/11/28 18:48:33 1.22 +++ loncom/interface/Attic/lonchart.pm 2001/12/18 20:06:05 1.24 @@ -16,6 +16,7 @@ # 9/8 Gerd Kortemeyer # 10/18/01, 10/19/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; @@ -108,6 +109,7 @@ sub ExtractStudentData { elsif ($Val eq 'incorrect_attempted'){$Code = '.';} elsif ($Val eq 'incorrect_by_override'){$Code = '-';} elsif ($Val eq 'excused'){$Code = 'x';} + elsif ($Val eq 'ungraded_attempted'){$Code = '#';} else {$Code = ' ';} $TempHash{"$Part.Code"} = $Code; } @@ -181,6 +183,12 @@ sub tracetable { # ================================================================ Main Handler sub handler { + + undef %hash; + undef @students; + undef @cols; + undef @rowlabels; + my $r=shift; if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { @@ -228,6 +236,7 @@ sub handler { " +: correct by override\n". " -: incorrect by override\n". " .: incorrect attempted\n". + " #: ungraded attempted\n". " : not attempted\n". " x: excused

"); @@ -249,9 +258,6 @@ sub handler { # ---------------------------------------------- Read class list and row labels - undef @rowlabels; - undef @students; - my $classlst=&Apache::lonnet::reply ('dump:'.$cdom.':'.$cnum.':classlist',$chome); my $now=time;