--- loncom/debugging_tools/updateclasslist.pl	2005/11/17 21:46:25	1.1
+++ loncom/debugging_tools/updateclasslist.pl	2005/11/17 21:54:18	1.2
@@ -4,7 +4,7 @@
 #
 # update_ids.pl - propagate the ids in ids.db to all course classlists
 #
-# $Id: updateclasslist.pl,v 1.1 2005/11/17 21:46:25 albertel Exp $
+# $Id: updateclasslist.pl,v 1.2 2005/11/17 21:54:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,7 +50,12 @@ sub main {
     foreach my $dom (sort(@domains)) {
 	my %courses = 
 	    &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids);
+	my $total = scalar(keys(%courses));
+	print("Found $total to do\n");
+	my $i=0;
 	foreach my $course (keys(%courses)) {
+	    $i++;
+	    print("Done $i/$total\n");
 	    my ($cdom,$cnum) = split('_',$course);
 	    my $classlist = ($ver =~ /^2\.0/) 
 		? &Apache::loncoursedata::get_classlist($cdom.'_'.$cnum,$cdom,$cnum)