loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.20, 2016/11/16 18:09:21	version 1.20.2.1, 2020/07/18 00:16:00
Line 175 sub process_xml {	Line 175 sub process_xml {
closedir(DIR);	closedir(DIR);
my %courseids = ();	my %courseids = ();
print $fh "Sending to batch - auto,$dom,$dcname,$dcdom ".join(":",@requests)."\n";	print $fh "Sending to batch - auto,$dom,$dcname,$dcdom ".join(":",@requests)."\n";
my ($result,$logmsg) = &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);	my ($result,$logmsg,$clonemsg,$keysmsg,$codesref,$instcodesref) =
	&LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);
my $outcome;	my $outcome;
if ($result ne '') {	if ($result ne '') {
$outcome = $result."\n";	$outcome = $result."\n";
Line 183 sub process_xml {	Line 184 sub process_xml {
if ($logmsg ne '') {	if ($logmsg ne '') {
$outcome .= $logmsg."\n";	$outcome .= $logmsg."\n";
}	}
	if ($clonemsg ne '') {
	$outcome .= $clonemsg."\n";
	}
print $fh $outcome;	print $fh $outcome;

my $output;	my $output;
Line 247 sub set_dc_env {	Line 251 sub set_dc_env {
$env{'user.home'} = &Apache::lonnet::homeserver($dcname,$dcdom);	$env{'user.home'} = &Apache::lonnet::homeserver($dcname,$dcdom);
if ($defdom ne '') {	if ($defdom ne '') {
$env{'request.role.domain'} = $defdom;	$env{'request.role.domain'} = $defdom;
}	}
return;	return;
}	}