--- loncom/interface/statistics/lonproblemstatistics.pm	2002/08/01 20:49:06	1.9
+++ loncom/interface/statistics/lonproblemstatistics.pm	2002/08/02 12:41:20	1.10
@@ -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.10 2002/08/02 12:41:20 stredwic 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
@@ -599,8 +599,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.'",'.