loncom/debugging_tools/updateclasslist.pl - diff

Return to updateclasslist.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.1, 2005/11/17 21:46:25	version 1.3, 2006/07/05 21:34:20
Line 2	Line 2
#	#
# The LearningOnline Network	# 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$	# $Id$
#	#
Line 50 sub main {	Line 50 sub main {
foreach my $dom (sort(@domains)) {	foreach my $dom (sort(@domains)) {
my %courses =	my %courses =
&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@hostids);	&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)) {	foreach my $course (keys(%courses)) {
	$i++;
	print("Done $i/$total\n");
my ($cdom,$cnum) = split('_',$course);	my ($cdom,$cnum) = split('_',$course);
my $classlist = ($ver =~ /^2\.0/)	my $classlist = ($ver =~ /^2\.0/)
? &Apache::loncoursedata::get_classlist($cdom.'_'.$cnum,$cdom,$cnum)	? &Apache::loncoursedata::get_classlist($cdom.'_'.$cnum,$cdom,$cnum)