loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2002/02/19 20:22:00	version 1.32, 2002/02/28 01:49:33
Line 321 sub CreateForm {	Line 321 sub CreateForm {
}	}

sub CacheChart {	sub CacheChart {
my @list = ();	my %list = ();
my $count=0;	my $count=0;

my $Pos = $ENV{'form.sort'};	my $Pos = $ENV{'form.sort'};
Line 332 sub CacheChart {	Line 332 sub CacheChart {
foreach my $key( keys %CachData) {	foreach my $key( keys %CachData) {
my @Temp=split(/\:/,$key);	my @Temp=split(/\:/,$key);
my $Use = $Temp[$Pos];	my $Use = $Temp[$Pos];
$list[$count]=$Use.$key.'*'.$CachData{$key};	$list{$Use.$key}=$key;
$count++;	$count++;
}	}

@list = sort (@list);	my @order = sort(keys(%list));

$r->print('<h3>'.$count.' students</h3>');	$r->print('<h3>'.$count.' students</h3>');
&CreateForm();	&CreateForm();
Line 344 sub CacheChart {	Line 344 sub CacheChart {

$r->print('<p><pre>');	$r->print('<p><pre>');
for ( my $n; $n < $count; $n++) {	for ( my $n; $n < $count; $n++) {
my ($dummy, $Line) = split(/\*/,$list[$n]);	$r->print($CachData{$list{$order[$n]}}.'<br>');
$r->print($Line.'<br>');
}	}
$r->print('</pre>');	$r->print('</pre>');
}	}