[LON-CAPA-cvs] cvs: doc /loncapafiles accesscount_seed.piml

[banghart]

banghart		Thu Jun  2 19:22:04 2005 EDT

  Modified files:              
    /doc/loncapafiles	accesscount_seed.piml 
  Log:
  	Print proper number of \b 
  
  
Index: doc/loncapafiles/accesscount_seed.piml
diff -u doc/loncapafiles/accesscount_seed.piml:1.3 doc/loncapafiles/accesscount_seed.piml:1.4
--- doc/loncapafiles/accesscount_seed.piml:1.3	Sat May 14 15:37:47 2005
+++ doc/loncapafiles/accesscount_seed.piml	Thu Jun  2 19:22:03 2005
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: accesscount_seed.piml,v 1.3 2005/05/14 19:37:47 albertel Exp $ -->
+<!-- $Id: accesscount_seed.piml,v 1.4 2005/06/02 23:22:03 banghart Exp $ -->
 
 <!--
 
@@ -47,11 +47,15 @@
 
 my $count = 0;
 my $countby = 1;
-print "Updating ".scalar(@userdirs)." files.\n";
+my $char_count = length(scalar(@userdirs)." files.");
+# print "Updating ".scalar(@userdirs)." files.\n";
+print "Updating ".scalar(@userdirs)." files.";
+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.'/nohist_resevaldata.db';