--- loncom/interface/statistics/lonstathelpers.pm	2004/06/23 20:50:26	1.16
+++ loncom/interface/statistics/lonstathelpers.pm	2004/08/12 12:54:12	1.19
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.16 2004/06/23 20:50:26 matthew Exp $
+# $Id: lonstathelpers.pm,v 1.19 2004/08/12 12:54:12 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,7 +126,6 @@ sub ProblemSelector {
             next if ($res->{'type'} ne 'assessment');
             foreach my $part (@{$res->{'parts'}}) {
                 my $partdata = $res->{'partdata'}->{$part};
-                next if ($partdata->{'Survey'});
                 for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){
                     my $respid = $partdata->{'ResponseIds'}->[$i];
                     my $resptype = $partdata->{'ResponseTypes'}->[$i];
@@ -639,7 +638,7 @@ sub ensure_proper_cache {
     my ($symb) = @_;
     my $cid = $ENV{'request.course.id'};
     my $new_filename =  '/home/httpd/perl/tmp/'.
-        'problemanalsysis_'.$cid.'answer_cache.db';
+        'problemanalysis_'.$cid.'_answer_cache.db';
     if (! defined($cache_filename) ||
         $cache_filename ne $new_filename ||
         ! defined($current_symb)   ||
@@ -1096,7 +1095,8 @@ sub manage_caches {
         ('<input type="submit" name="ClearCache" '.
              'value="'.&mt('Clear Caches').'" />',
          '<input type="submit" name="updatecaches" '.
-             'value="'.&mt('Update Caches').'" />',
+             'value="'.&mt('Update Caches').'" />'.
+         &Apache::loncommon::help_open_topic('Statistics_Cache'),
          '<input type="hidden" name="prevsection" value="'.$sectionkey.'" />',
          '<input type="hidden" name="prevenrollstatus" value="'.$statuskey.'" />'
          );