loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.13, 2010/03/30 15:24:52	version 1.15, 2010/08/28 19:00:42
Line 110	Line 110
close($fh);	close($fh);
exit;	exit;
}	}
	$env{'user.name'} = $dcname;
	$env{'user.domain'} = $dcdom;
	$env{'request.role.domain'} = $defdom;
	my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');
	my %permissionflags = ();
	&set_permissions(\%permissionflags,\@permissions);
my $output = &process_xml($fh,$defdom,$dcname,$dcdom);	my $output = &process_xml($fh,$defdom,$dcname,$dcdom);
print $output;	print $output;
	&unset_permissions(\%permissionflags);
}	}
} else {	} else {
my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');	my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');
Line 142	Line 149
}	}
}	}
if ($settings->{'req'}) {	if ($settings->{'req'}) {
my $output = &Apache::process_official_reqs('auto',$dom);	my $output = &Apache::loncoursequeueadmin::process_official_reqs('auto',$dom);
if ($output) {	if ($output) {
print $fh $output;	print $fh $output;
}	}