loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.11, 2004/06/17 18:31:24	version 1.12, 2004/11/27 17:23:09
Line 50	Line 50
if (! &localenroll::run($dom)) { next; }	if (! &localenroll::run($dom)) { next; }
$ENV{'user.domain'} = $dom;	$ENV{'user.domain'} = $dom;
# Determine the courses	# Determine the courses
my %courses = &Apache::lonnet::courseiddump($dom,'.',1,1,\@hostids);	my %courses = &Apache::lonnet::courseiddump($dom,'.',1,'.','.',1,\@hostids);
my %affiliates = ();	my %affiliates = ();
my %enrollvar = ();	my %enrollvar = ();
my %reply = ();	my %reply = ();
Line 122	Line 122
# Now go through classes and perform required enrollment changes.	# Now go through classes and perform required enrollment changes.
open (my $fh,">>$logfile");	open (my $fh,">>$logfile");
print $fh "********************\n".localtime(time)." Enrollment messages start --\n";	print $fh "********************\n".localtime(time)." Enrollment messages start --\n";
	print $fh "Response from fetch_enrollment_query was $outcome\n";
foreach my $crs (sort keys %enrollvar) {	foreach my $crs (sort keys %enrollvar) {
my $logmsg = '';	my $logmsg = '';
my $newusermsg = '';	my $newusermsg = '';