--- loncom/misc/refresh_courseids_db.pl	2010/07/30 17:46:12	1.6
+++ loncom/misc/refresh_courseids_db.pl	2010/08/01 03:57:32	1.7
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.6 2010/07/30 17:46:12 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.7 2010/08/01 03:57:32 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -375,7 +375,7 @@ sub coursecontent_constraints {
     my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_;
     my $navmap = Apache::lonnavmaps::navmap->new();
     if (defined($navmap)) {
-        my %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',
+        my %anonsubmissions =  &Apache::lonnet::dump('nohist_anonsurveys',
                                                      $cdom,$cnum);
         my %allresponses;
         my $anonsurv_subm;
@@ -388,7 +388,7 @@ sub coursecontent_constraints {
             my @parts = @{$res->parts()};
             my $symb = $res->symb();
             foreach my $part (@parts) {
-                if (exists($resourcetracker{$symb."\0".$part."\0anonymous"})) {
+                if (exists($anonsubmissions{$symb."\0".$part})) {
                     $anonsurv_subm = 1;
                 }
             }