version 1.27, 2002/02/01 16:37:58
|
version 1.29, 2002/02/06 16:59:50
|
Line 52 package Apache::lonchart;
|
Line 52 package Apache::lonchart;
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 240 sub handler {
|
Line 241 sub handler {
|
} else { |
} else { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
} |
} |
|
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 322 sub handler {
|
Line 324 sub handler {
|
':environment:lastname&generation&firstname&middlename', |
':environment:lastname&generation&firstname&middlename', |
&Apache::lonnet::homeserver($sname,$sdom)); |
&Apache::lonnet::homeserver($sname,$sdom)); |
|
|
$ssec=(int($ssec)) ? int($ssec) : $ssec; |
#$ssec=(int($ssec)) ? int($ssec) : $ssec; |
|
|
$rowlabels[$thisindex]= |
$rowlabels[$thisindex]= |
sprintf('%3s ',$ssec).' '.$reply{$sname}.' '; |
sprintf('%3s',$ssec).' '.$reply{$sname}.' '; |
my $i=0; |
my $i=0; |
map { |
map { |
$i++; |
$i++; |