--- loncom/interface/statistics/lonproblemstatistics.pm	2002/08/01 20:49:06	1.9
+++ loncom/interface/statistics/lonproblemstatistics.pm	2002/08/02 21:04:46	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemstatistics.pm,v 1.9 2002/08/01 20:49:06 stredwic Exp $
+# $Id: lonproblemstatistics.pm,v 1.11 2002/08/02 21:04:46 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -450,7 +450,7 @@ sub BuildStatisticsTable {
 	    $urlres=$Map;
 #######################
 
-#	    $res = '<a href="'.$cache->{'src_'.$ResId}.'">'.$res.'</a>';
+#	    $res = '<a href="'.$cache->{$ResId.':source'}.'">'.$res.'</a>';
 	    #$Map = '<a href="'.$Map.'">'.$res.'</a>';
 
 #------------------------ Compute the Average of Tries about one problem
@@ -515,7 +515,9 @@ sub BuildStatisticsTable {
                        $YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'.
 		       $SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'.
                        $DiscNo.'&'.$Prob;
-##8888	    $CachData{($p_count-1)}=$join;
+
+#####{$sequence.'@'.$pOrd}
+	  #  $cache->{'tableCache:'.$p_count-1}=$join;
 
 #6666666
 #	    $r->print('<br>'.$out.'&'.$DoD);
@@ -599,8 +601,8 @@ sub TableRow {
         my ($ResId,$Dummy)=split(/\*/,$Prob);
         $Ptr="\n".'<br>'.
              "\n".'"'.($RealIdx+1).'",'.
-             "\n".'"'.$cache->{'title_'.$ResId}.$Dummy.'",'.
-             "\n".'"'.$cache->{'src_'.$ResId}.'",'.
+             "\n".'"'.$cache->{$ResId.':title'}.$Dummy.'",'.
+             "\n".'"'.$cache->{$ResId.':source'}.'",'.
              "\n".'"'.$StdNo.'",'.
              "\n".'"'.$TotalTries.'",'.
              "\n".'"'.$MxTries.'",'.
@@ -636,7 +638,7 @@ sub TableRow {
              "\n".'<td bgcolor='.$color->{"yellow"}.'> '.$DiscNo.'</td>';
         $r->print("\n".$Ptr.'</tr>' );
     }
-#    $GraphDat->{$RealIdx}=$DoD.':'.$Wrng;
+#    $cache->{'graph_gif:'.$RealIdx}=$DoD.':'.$Wrng;
 }