--- loncom/interface/statistics/lonpercentage.pm	2002/08/30 15:35:08	1.1
+++ loncom/interface/statistics/lonpercentage.pm	2002/08/30 17:11:44	1.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonpercentage.pm,v 1.1 2002/08/30 15:35:08 stredwic Exp $
+# $Id: lonpercentage.pm,v 1.2 2002/08/30 17:11:44 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -237,7 +237,8 @@ sub GraphData {
     my $max = 0;
     foreach my $key (sort(keys(%percentages))) {
 	push(@percent, $key);
-	my $count = scalar(split(':::', $percentages{$key}));
+	my @temp = split(':::', $percentages{$key});
+	my $count = scalar(@temp);
 	if($count > $max) {
 	    $max = $count;
 	}