loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2003/12/11 02:42:38	version 1.45.2.1, 2004/01/19 23:05:52
Line 558 ENDENHEAD	Line 558 ENDENHEAD
foreach my $class (@affiliates) {	foreach my $class (@affiliates) {
my $addcheck = &localenroll::new_course($class,$cenv{'internal.courseowner'});	my $addcheck = &localenroll::new_course($class,$cenv{'internal.courseowner'});
unless ($addcheck eq 'ok') {	unless ($addcheck eq 'ok') {
print STDERR "$class - $cenv{'internal.courseowner'} - $addcheck\n";
push @badclasses, $class;	push @badclasses, $class;
}	}
}	}
Line 686 ENDENHEAD	Line 685 ENDENHEAD
$r->print(	$r->print(
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>');	'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>');
}	}
	# Flush the course logs so reverse user roles immediately updated
	&Apache::lonnet::flushcourselogs();
$r->print('<p>Roles will be active at next login.</p></body></html>');	$r->print('<p>Roles will be active at next login.</p></body></html>');
}	}