--- doc/loncapafiles/accesscount_seed.piml	2003/12/09 20:17:48	1.1
+++ doc/loncapafiles/accesscount_seed.piml	2004/07/22 20:27:45	1.2
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.1 2003/12/09 20:17:48 matthew Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.2 2004/07/22 20:27:45 matthew Exp $ -->
 
 <!--
 
@@ -41,6 +41,7 @@ print "\nUpdating access count storage.
 my $logfile = '/tmp/accesscount_update_log.txt';
 
 # get a list of all user directories
+print "Getting directory listing.\n";
 my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 
@@ -55,6 +56,7 @@ foreach my $udir (@userdirs) {
     chomp($udir);
     my $file = $udir.'/nohist_resevaldata.db';
     next if (! -e $file);
+    next if (-e $udir.'/nohist_accesscount.db');
     system('/home/httpd/perl/seed_accesscount.pl '.$file.
                 ' 2>>'.$logfile);
 }