[LON-CAPA-cvs] cvs: doc /loncapafiles accesscount_seed.piml
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 31 Jan 2006 10:33:51 -0000
albertel Tue Jan 31 05:33:51 2006 EDT
Modified files:
/doc/loncapafiles accesscount_seed.piml
Log:
- cleanups
Index: doc/loncapafiles/accesscount_seed.piml
diff -u doc/loncapafiles/accesscount_seed.piml:1.6 doc/loncapafiles/accesscount_seed.piml:1.7
--- doc/loncapafiles/accesscount_seed.piml:1.6 Fri Dec 9 11:26:48 2005
+++ doc/loncapafiles/accesscount_seed.piml Tue Jan 31 05:33:51 2006
@@ -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 $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);