Return to batchcreatecourse.pm CVS log | Up to [LON-CAPA] / loncom / automation |
version 1.24, 2007/09/03 15:34:16 | 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'}; |
} | } |
} | } |