loncom/enrollment/Autoenroll.pl - diff

Return to Autoenroll.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.8, 2004/03/18 19:40:39	version 1.9, 2004/06/08 22:09:44
Line 39	Line 39
#only run if configured to	#only run if configured to
if (! &localenroll::run()) { exit; }	if (! &localenroll::run()) { exit; }

# Determine the library server's domain	# Determine the library server's domain and hostID
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');	my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
my $dom = $$perlvarref{'lonDefDomain'};	my $dom = $$perlvarref{'lonDefDomain'};
my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autoenroll.log';	my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autoenroll.log';
$ENV{'user.domain'} = $dom;	$ENV{'user.domain'} = $dom;
	my $hostid = $$perlvarref{'lonHostID'};

# Determine the present time;	# Determine the present time;
my $timenow = time();	my $timenow = time();

# Determine the courses	# Determine the courses
my %courses = &Apache::lonnet::courseiddump($dom,'.',1);	my %courses = &Apache::lonnet::courseiddump($dom,'.',1,$hostid);
my %affiliates = ();	my %affiliates = ();
my %enrollvar = ();	my %enrollvar = ();
my %reply = ();	my %reply = ();
Line 112	Line 113
}	}
}	}
}	}
&localenroll::fetch_enrollment($dom,\%affiliates,\%reply);	my $outcome = &Apache::lonnet::fetch_enrollment_query($hostid,$dom,\%affiliates,\%reply);

# 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");