[LON-CAPA-cvs] cvs: loncom /debugging_tools updateclasslist.pl

[albertel]

albertel		Thu Nov 17 16:54:18 2005 EDT

  Modified files:              
    /loncom/debugging_tools	updateclasslist.pl 
  Log:
  - put in some status numbers
  
  
Index: loncom/debugging_tools/updateclasslist.pl
diff -u loncom/debugging_tools/updateclasslist.pl:1.1 loncom/debugging_tools/updateclasslist.pl:1.2
--- loncom/debugging_tools/updateclasslist.pl:1.1	Thu Nov 17 16:46:25 2005
+++ loncom/debugging_tools/updateclasslist.pl	Thu Nov 17 16:54:18 2005
@@ -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 @@
     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)