Return to batchcreatecourse.pm CVS log | Up to [LON-CAPA] / loncom / automation |
version 1.20, 2007/03/03 01:40:38 | version 1.21, 2007/05/11 01:48:26 |
---|---|
Line 32 use Time::Local; | Line 32 use Time::Local; |
use Apache::lonnet; | use Apache::lonnet; |
use Apache::loncommon; | use Apache::loncommon; |
use Apache::lonlocal; | use Apache::lonlocal; |
use LONCAPA qw(:match); | |
use strict; | use strict; |
Line 218 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); |
$$courseids{$courseid} = $details{$num}{'class'}; | if ($courseid =~ /^$match_courseid$/) { |
$$courseids{$courseid} = $details{$num}{'class'}; | |
} | |
} | } |
} | } |
} | } |