version 1.23, 2007/08/23 21:54:37
|
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 499 sub build_course {
|
Line 499 sub build_course {
|
} |
} |
my ($success, $msg) = &Apache::loncommon::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname,$context); |
my ($success, $msg) = &Apache::loncommon::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname,$context); |
$$logmsg .= $msg; |
$$logmsg .= $msg; |
|
if (!$success) { |
|
return; |
|
} |
} else { |
} else { |
return; |
return; |
} |
} |