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

stredwic lon-capa-cvs@mail.lon-capa.org
Tue, 13 Aug 2002 15:05:13 -0000


stredwic		Tue Aug 13 11:05:13 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemstatistics.pm 
  Log:
  Fixed the map selection to use the new cached data.  Basically moved the
  map selection from the extraction to the printing.
  
  
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.22 loncom/interface/statistics/lonproblemstatistics.pm:1.23
--- loncom/interface/statistics/lonproblemstatistics.pm:1.22	Tue Aug 13 11:01:07 2002
+++ loncom/interface/statistics/lonproblemstatistics.pm	Tue Aug 13 11:05:13 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemstatistics.pm,v 1.22 2002/08/13 15:01:07 stredwic Exp $
+# $Id: lonproblemstatistics.pm,v 1.23 2002/08/13 15:05:13 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,11 +178,10 @@
     my $count = 1;
     foreach(@$orderedProblems) {
         my ($sequence,$problem,$part)=split(':', $_);
-#        if($cache->{'ProblemStatisticsMaps'} ne 'All Maps'  &&
-#           $cache->{'ProblemStatisticsMaps'} ne $cache->{$sequence.':title'}) {
-#            next;
-#        }
-
+        if($cache->{'ProblemStatisticsMaps'} ne 'All Maps'  &&
+           $cache->{'ProblemStatisticsMaps'} ne $cache->{$sequence.':title'}) {
+            next;
+        }
 
         my $ref = '<a href="'.$cache->{$problem.':source'}.
                   '" target="_blank">'.$cache->{$problem.':title'}.'</a>';