loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.24, 2007/09/03 15:34:16	version 1.26, 2008/05/01 02:48:49
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 510 sub build_course {	Line 510 sub build_course {
# Make owner a course coordinator	# Make owner a course coordinator
#	#
if (($owner_domain) && ($owner_uname)) {	if (($owner_domain) && ($owner_uname)) {
&Apache::lonnet::assignrole($owner_domain,$owner_uname,$courseid,'cc');	&Apache::lonnet::assignrole($owner_domain,$owner_uname,$courseid,'cc','','','','',$context);
}	}

#	#