--- loncom/interface/statistics/lonstathelpers.pm	2004/06/25 21:02:41	1.17
+++ 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.17 2004/06/25 21:02:41 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)   ||