--- loncom/interface/Attic/lonchart.pm	2002/06/28 21:12:46	1.46
+++ loncom/interface/Attic/lonchart.pm	2002/07/01 13:59:13	1.47
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonchart.pm,v 1.46 2002/06/28 21:12:46 stredwic Exp $
+# $Id: lonchart.pm,v 1.47 2002/07/01 13:59:13 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -513,9 +513,12 @@ sub ProcessTopResourceMap {
 		    $hash{'title_'.$currentResourceID};
 
                 my $totalProblems=0;
-                foreach (split(/\:/,$CacheData{$currentSequence.
+                foreach my $currentProblem (split(/\:/,
+                                               $CacheData{$currentSequence.
                                                ':problems'})) {
-                    foreach ($CacheData{$currentSequence.':'.$_.':parts'}) {
+                    foreach (split(/\:/,$CacheData{$currentSequence.':'.
+                                                   $currentProblem.
+                                                   ':parts'})) {
                         $totalProblems++;
                     }
                 }