loncom/interface/statistics/lonpercentage.pm - diff

Return to lonpercentage.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.1, 2002/08/30 15:35:08	version 1.3, 2002/12/13 21:39:19
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;
}	}
Line 249 sub GraphData {	Line 250 sub GraphData {
join(',',@percent), join(',', @percentCount));	join(',',@percent), join(',', @percentCount));

$Ptr .= '</form>'."\n";	$Ptr .= '</form>'."\n";
$Ptr .= '<IMG src="/cgi-bin/graph.gif?'.(join('&', @GData));	$Ptr .= '<IMG src="/cgi-bin/graph.png?'.(join('&', @GData));
$Ptr .= '" border="1" />';	$Ptr .= '" border="1" />';
$Ptr .= '<form>'."\n";	$Ptr .= '<form>'."\n";