![[BACK]](/icons/back.gif){kind=icon}
Return to lonmodifycourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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) { |