loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;
}	}