--- doc/loncapafiles/clean_file_permissions.piml	2005/05/14 19:37:47	1.2
+++ doc/loncapafiles/clean_file_permissions.piml	2005/06/02 23:20:50	1.3
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: clean_file_permissions.piml,v 1.2 2005/05/14 19:37:47 albertel Exp $ -->
+<!-- $Id: clean_file_permissions.piml,v 1.3 2005/06/02 23:20:50 banghart Exp $ -->
 
 <!--
 
@@ -48,10 +48,12 @@ my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[
 my $count = 0;
 my $countby = 1;
 print "Updating ".scalar(@userdirs)." files.\n";
+my $char_count=0;
 foreach my $udir (@userdirs) {
     if (++$count % $countby == 0) {
-        print "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b";
+        print ("\b" x $char_count);
         print $count."/".scalar(@userdirs);
+        $char_count = length($count."/".scalar(@userdirs));
     }
     chomp($udir);
     my $file = $udir.'/file_permissions.db';