loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.35, 2010/01/30 22:16:50	version 1.37, 2011/07/04 09:24:46
Line 205 sub create_courses {	Line 205 sub create_courses {
}	}
my ($logmsg,$keysmsg,$newusermsg,$addresult);	my ($logmsg,$keysmsg,$newusermsg,$addresult);
my %enrollcount = ();	my %enrollcount = ();
my $newcoursedir = $$perlvarref{'lonDaemons'}.'/tmp/addcourse/'.$dom.'/'.$context;	my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;
if ($context eq 'auto') {	if ($context eq 'auto') {
$newcoursedir .= '/pending';	$newcoursedir .= '/pending';
} else {	} else {
Line 434 sub build_course {	Line 434 sub build_course {
}	}
my $firstres = $details->{'firstres'};	my $firstres = $details->{'firstres'};
if ($firstres eq '') {	if ($firstres eq '') {
$firstres = 'syl';	if ($crstype eq 'Community') {
	$firstres = 'nav';
	} else {
	$firstres = 'syl';
	}
}	}
foreach my $secid (sort(keys(%{$details->{'sections'}}))) {	foreach my $secid (sort(keys(%{$details->{'sections'}}))) {
$sectionstr .= $details->{'sections'}{$secid}{'inst'}.':'.$details->{'sections'}{$secid}{'loncapa'}.',';	$sectionstr .= $details->{'sections'}{$secid}{'inst'}.':'.$details->{'sections'}{$secid}{'loncapa'}.',';