--- doc/loncapafiles/accesscount_seed.piml	2005/12/09 16:26:48	1.6
+++ doc/loncapafiles/accesscount_seed.piml	2006/01/31 10:33:51	1.7
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.6 2005/12/09 16:26:48 albertel Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.7 2006/01/31 10:33:51 albertel Exp $ -->
 
 <!--
 
@@ -47,13 +47,12 @@ my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
 
 my $count = 0;
 my $countby = 100;
-# print "Updating ".scalar(@userdirs)." files.\n";
-print "Updating ".scalar(@userdirs)." files.";
+print "Updating ".scalar(@userdirs)." files.\n";
 my $char_count = 0;
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-	print ("\b" x $char_count);
-        print $count."/".scalar(@userdirs);
+	print("\b" x $char_count);
+        print($count."/".scalar(@userdirs));
         $char_count = length($count."/".scalar(@userdirs));
     }
     chomp($udir);