[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>';