loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.80, 2005/07/08 14:27:14	version 1.81, 2005/07/11 17:52:19
Line 784 sub construct_course {	Line 784 sub construct_course {
foreach my $item (@sections) {	foreach my $item (@sections) {
my ($sec,$gp) = split/:/,$item;	my ($sec,$gp) = split/:/,$item;
my $class = $args->{'crscode'}.$sec;	my $class = $args->{'crscode'}.$sec;
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'});	my $addcheck = &Apache::lonnet::auto_new_course($$crsunum,$$crsudom,$class,$cenv{'internal.courseowner'});
$cenv{'internal.sectionnums'} .= $item.',';	$cenv{'internal.sectionnums'} .= $item.',';
unless ($addcheck eq 'ok') {	unless ($addcheck eq 'ok') {
push @badclasses, $class;	push @badclasses, $class;