loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.16, 2010/09/26 02:29:55	version 1.18, 2011/03/06 21:44:14
Line 132	Line 132
my $settings;	my $settings;
if (ref($domconfig{'autocreate'}) eq 'HASH') {	if (ref($domconfig{'autocreate'}) eq 'HASH') {
$settings = $domconfig{'autocreate'};	$settings = $domconfig{'autocreate'};
	my ($dcname,$dcdom);
	if ($settings->{'xmldc'}) {
	($dcname,$dcdom) = split(':',$settings->{'xmldc'});
	}
if ($settings->{'xml'}) {	if ($settings->{'xml'}) {
if ($settings->{'xmldc'}) {	if ($settings->{'xmldc'}) {
my ($dcname,$dcdom) = split(':',$settings->{'xmldc'});
$env{'user.name'} = $dcname;
$env{'user.domain'} = $dcdom;
$env{'request.role.domain'} = $dom;
if (!&check_activedc($dcdom,$dcname,$dom)) {	if (!&check_activedc($dcdom,$dcname,$dom)) {
print $fh "Autocreate.pl in domain $dom configured to run under the auspices of a user without an active domain coordinator role in the domain - course creation will be skipped.\n\n";	print $fh "Autocreate.pl in domain $dom configured to run under the auspices of a user without an active domain coordinator role in the domain - course creation will be skipped.\n\n";
next;	next;
Line 149	Line 149
}	}
}	}
if ($settings->{'req'}) {	if ($settings->{'req'}) {
my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom);	my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom,$dcname,$dcdom);
if ($output) {	if ($output) {
print $fh $output;	print $fh $output;
}	}