loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.22, 2007/07/02 03:36:47	version 1.25, 2008/02/07 01:43:21
Line 219 sub create_courses {	Line 219 sub create_courses {
&parse_coursereqs($newcoursedir.'/'.$request, \%details);	&parse_coursereqs($newcoursedir.'/'.$request, \%details);
foreach my $num (sort keys %details) {	foreach my $num (sort keys %details) {
my $courseid = &build_course($dom,$num,$context,\%details,\%longroles,\$logmsg,\$newusermsg,\$addresult,\%enrollcount,\$output,\$keysmsg);	my $courseid = &build_course($dom,$num,$context,\%details,\%longroles,\$logmsg,\$newusermsg,\$addresult,\%enrollcount,\$output,\$keysmsg);
if ($courseid =~ /^$match_courseid$/) {	if ($courseid =~m{^/$match_domain/$match_courseid}) {
$$courseids{$courseid} = $details{$num}{'class'};	$$courseids{$courseid} = $details{$num}{'class'};
}	}
}	}
Line 497 sub build_course {	Line 497 sub build_course {
$$logmsg .= &mt('Invalid home server for course').': '.$$details{$num}{'coursehome'};	$$logmsg .= &mt('Invalid home server for course').': '.$$details{$num}{'coursehome'};
return;	return;
}	}
	my ($success, $msg) = &Apache::loncommon::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname,$context);
$$logmsg .= &Apache::loncommon::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname,$context);	$$logmsg .= $msg;
	if (!$success) {
	return;
	}
} else {	} else {
return;	return;
}	}