loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.40.2.1.2.1, 2020/05/22 22:01:59	version 1.40.2.3, 2020/05/22 20:55:45
Line 212 sub create_courses {	Line 212 sub create_courses {
$longroles{'Community'}{$1} = $3;	$longroles{'Community'}{$1} = $3;
}	}
}	}
my ($logmsg,$keysmsg,$newusermsg,$addresult,%codehash);	my ($logmsg,$keysmsg,$newusermsg,$addresult,%codehash,%instcodes);
my %enrollcount = ();	my %enrollcount = ();
my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;	my $newcoursedir = LONCAPA::tempdir().'/addcourse/'.$dom.'/'.$context;
if ($context eq 'auto') {	if ($context eq 'auto') {
Line 240 sub create_courses {	Line 240 sub create_courses {
if ($code) {	if ($code) {
$codehash{$courseid} = $code;	$codehash{$courseid} = $code;
}	}
	if ($details{$num}{'coursecode'} ne '') {
	push(@{$instcodes{$details{$num}{'coursecode'}}},$courseid);
	}
}	}
}	}
}	}
}	}
}	}
return ($output,$logmsg,$keysmsg,\%codehash);	return ($output,$logmsg,$keysmsg,\%codehash,\%instcodes);
}	}

#############################################################	#############################################################