loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.21, 2019/07/26 02:28:28	version 1.22, 2020/07/01 20:09:03
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,$keysmsg,$codesref,$instcodesref) =	my ($result,$logmsg,$clonemsg,$keysmsg,$codesref,$instcodesref) =
&LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);	&LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$dom,$dcname,$dcdom);
my $outcome;	my $outcome;
if ($result ne '') {	if ($result ne '') {
Line 187 sub process_xml {	Line 187 sub process_xml {
if ($keysmsg ne '') {	if ($keysmsg ne '') {
$outcome .= $keysmsg."\n";	$outcome .= $keysmsg."\n";
}	}
	if ($clonemsg ne '') {
	$outcome .= $clonemsg."\n";
	}
print $fh $outcome;	print $fh $outcome;

my $output;	my $output;
Line 267 sub set_dc_env {	Line 270 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;
}	}