Return to lonmodifycourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.17, 2005/04/12 00:20:00 | version 1.18, 2005/04/27 19:09:30 |
---|---|
Line 701 ENDBASE | Line 701 ENDBASE |
sub check_course { | sub check_course { |
my ($dom,$course) = @_; | my ($dom,$course) = @_; |
my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.'); | my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.'); |
foreach my $key (sort keys %courseIDs) { | foreach my $key (sort keys %courseIDs) { |
if ($key =~ m/^($dom)_(\w+)$/) { | if ($key =~ m/^($dom)_(\w+)$/) { |
if ($2 eq $course) { | if ($2 eq $course) { |