|
version 1.23, 2001/12/06 21:57:23
|
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 182 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 251 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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonchart.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface