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 = ''; |