version 1.57, 2004/05/11 06:02:58
|
version 1.59, 2004/06/09 17:01:55
|
Line 1
|
Line 1
|
# The LearningOnline Network |
#meserver The LearningOnline Network |
# Create a course |
# Create a course |
# |
# |
# $Id$ |
# $Id$ |
Line 479 ENDDOCUMENT
|
Line 479 ENDDOCUMENT
|
sub create_course { |
sub create_course { |
my $r=shift; |
my $r=shift; |
my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'}); |
my $topurl='/res/'.&Apache::lonnet::declutter($ENV{'form.topmap'}); |
|
my $this_server = $Apache::lonnet::perlvar{'lonHostID'}; |
my $ccuname=$ENV{'form.ccuname'}; |
my $ccuname=$ENV{'form.ccuname'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
my $ccdomain=$ENV{'form.ccdomain'}; |
$ccuname=~s/\W//g; |
$ccuname=~s/\W//g; |
Line 627 ENDENHEAD
|
Line 628 ENDENHEAD
|
if (@affiliates > 0) { |
if (@affiliates > 0) { |
my @badclasses = (); |
my @badclasses = (); |
foreach my $class (@affiliates) { |
foreach my $class (@affiliates) { |
my $addcheck = &localenroll::new_course($class,$cenv{'internal.courseowner'}); |
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'}); |
unless ($addcheck eq 'ok') { |
unless ($addcheck eq 'ok') { |
push @badclasses, $class; |
push @badclasses, $class; |
} |
} |