version 1.1, 2005/11/17 21:46:25
|
version 1.2, 2005/11/17 21:54:18
|
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) |