version 1.22, 2007/07/02 03:36:47
|
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 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; |
} |
} |
Line 507 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); |
} |
} |
|
|
# |
# |