--- loncom/debugging_tools/updateclasslist.pl	2005/11/17 21:46:25	1.1
+++ loncom/debugging_tools/updateclasslist.pl	2006/07/05 21:34:20	1.3
@@ -2,9 +2,9 @@
 #
 # The LearningOnline Network
 #
-# update_ids.pl - propagate the ids in ids.db to all course classlists
+# - 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.3 2006/07/05 21:34:20 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)