version 1.34, 2002/02/28 23:25:50
|
version 1.35, 2002/02/28 23:35:31
|
Line 387 sub CreateForm {
|
Line 387 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 398 sub CacheChart {
|
Line 398 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 410 sub CacheChart {
|
Line 410 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>'); |
} |
} |