![[BACK]](/icons/back.gif){kind=icon}
Return to lonpercentage.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics|
Return to lonpercentage.pm CVS log | Up to [LON-CAPA] / loncom / interface / statistics |
| version 1.1, 2002/08/30 15:35:08 | version 1.2, 2002/08/30 17:11:44 |
|---|---|
| Line 237 sub GraphData { | Line 237 sub GraphData { |
| my $max = 0; | my $max = 0; |
| foreach my $key (sort(keys(%percentages))) { | foreach my $key (sort(keys(%percentages))) { |
| push(@percent, $key); | push(@percent, $key); |
| my $count = scalar(split(':::', $percentages{$key})); | my @temp = split(':::', $percentages{$key}); |
| my $count = scalar(@temp); | |
| if($count > $max) { | if($count > $max) { |
| $max = $count; | $max = $count; |
| } | } |