[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm

[stredwic]

stredwic		Fri Aug  2 08:41:20 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemstatistics.pm 
  Log:
  Updated some of the cache data keys being used.
  
  
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.9 loncom/interface/statistics/lonproblemstatistics.pm:1.10
--- loncom/interface/statistics/lonproblemstatistics.pm:1.9	Thu Aug  1 16:49:06 2002
+++ loncom/interface/statistics/lonproblemstatistics.pm	Fri Aug  2 08:41:20 2002
@@ -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 @@
 	    $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 @@
         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.'",'.