--- doc/loncapafiles/update_queue_slots.piml	2006/06/05 23:18:45	1.1
+++ doc/loncapafiles/update_queue_slots.piml	2006/06/16 19:38:10	1.2
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: update_queue_slots.piml,v 1.1 2006/06/05 23:18:45 albertel Exp $ -->
+<!-- $Id: update_queue_slots.piml,v 1.2 2006/06/16 19:38:10 albertel Exp $ -->
 
 <!--
 
@@ -54,8 +54,20 @@ sub update_value {
     return $value;
 }
 
-my $updated;
+my $updated=0;
+my %dirs;
+my $last;
+my $total;
 sub process_gradingqueue_file {
+    my $which = (split('/',$_))[5];
+    $dirs{$which} = 1;
+    my $count2 = length("$last");
+    my $count = length("$updated");
+    my $backup = "\b"x(8+$count2+14+$count+6);
+    if (scalar(keys(%dirs)) > $last) {
+         $last = scalar(keys(%dirs));
+         print($backup."Updated $last directories, $updated files");
+    }
     return if ($_!~m/(gradingqueue|reviewqueue|slots|slot_reservations)\.db$/);
     my $type='queue';
     if ($1 eq 'slots') {
@@ -63,10 +75,11 @@ sub process_gradingqueue_file {
     } elsif ($1 eq 'slot_reservations') {
 	$type = 'reservation';
     }
+    my $count2 = length("$last");
     my $count = length("$updated");
+    my $backup = "\b"x(8+$count2+14+$count+6);
     $updated++;
-    print("\b"x(14+$count));
-    print("Updated $updated files");
+    print($backup."Updated $last directories, $updated files");
     my $prefix = $_;
     $prefix =~s/\.db$//;
     my $db = &amp;LONCAPA::_locking_hash_tie($prefix,'nohist_',&amp;GDBM_WRCREAT());
@@ -128,7 +141,7 @@ sub main {
 	     no_chdir   =&gt; 1,
 	     wanted     =&gt; \&amp;process_gradingqueue_file,
 	 }, 
-         '/home/www/lonUsers/');
+         $perlvar->{'lonUsersDir'});
      print("\n");
 }