version 1.31, 2009/01/08 16:58:04
|
version 1.32, 2010/08/19 22:36:59
|
Line 78
|
Line 78
|
my %args = ( |
my %args = ( |
one_time => 1, |
one_time => 1, |
); |
); |
my %coursehash = &Apache::lonnet::coursedescription($key,\%args); |
|
my $crs = $coursehash{'num'}; |
|
next if ($coursehash{'domain'} ne $dom); |
|
# Get course settings |
# Get course settings |
my %settings = &Apache::lonnet::dump('environment',$dom,$crs); |
my %settings = &Apache::lonnet::coursedescription($key,\%args); |
|
my $crs = $settings{'num'}; |
|
next if ($settings{'domain'} ne $dom); |
%{$enrollvar{$crs}} = (); |
%{$enrollvar{$crs}} = (); |
@{$affiliates{$crs}} = (); |
@{$affiliates{$crs}} = (); |
%{$LC_code{$crs}} = (); |
%{$LC_code{$crs}} = (); |
Line 118
|
Line 117
|
if ($sec =~ m/^(\w+):(\w*)$/ ) { |
if ($sec =~ m/^(\w+):(\w*)$/ ) { |
my $course_id = $enrollvar{$crs}{coursecode}.$1; |
my $course_id = $enrollvar{$crs}{coursecode}.$1; |
my $gp = $2; |
my $gp = $2; |
if (!grep/^$course_id$/,@{$affiliates{$crs}}) { |
if (!grep/^\Q$course_id\E$/,@{$affiliates{$crs}}) { |
push @{$affiliates{$crs}}, $course_id; |
push @{$affiliates{$crs}}, $course_id; |
$LC_code{$crs}{$course_id} = $gp; |
$LC_code{$crs}{$course_id} = $gp; |
} |
} |
Line 128
|
Line 127
|
if ($xlist =~ m/^([^:]+):(\w*)$/) { |
if ($xlist =~ m/^([^:]+):(\w*)$/) { |
my $course_id = $1; |
my $course_id = $1; |
my $gp = $2; |
my $gp = $2; |
if (!grep/^$course_id$/,@{$affiliates{$crs}}) { |
if (!grep/^\Q$course_id\E$/,@{$affiliates{$crs}}) { |
push @{$affiliates{$crs}}, $course_id; |
push @{$affiliates{$crs}}, $course_id; |
$LC_code{$crs}{$course_id} = $gp; |
$LC_code{$crs}{$course_id} = $gp; |
} |
} |
Line 149
|
Line 148
|
if ($reply{$crs} > 0) { |
if ($reply{$crs} > 0) { |
if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) || ($enrollvar{$crs}{autoend} == 0) ) ) { |
if ( ($enrollvar{$crs}{autostart} < $timenow) && ( ($enrollvar{$crs}{autoend} > $timenow) || ($enrollvar{$crs}{autoend} == 0) ) ) { |
if (($enrollvar{$crs}{autoadds} == 1) || ($enrollvar{$crs}{autodrops} == 1)) { |
if (($enrollvar{$crs}{autoadds} == 1) || ($enrollvar{$crs}{autodrops} == 1)) { |
my ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$enrollvar{$crs}{autoadds},$enrollvar{$crs}{autodrops},$enrollvar{$crs}{startdate},$enrollvar{$crs}{enddate},$enrollvar{$crs}{authtype},$enrollvar{$crs}{autharg},\@{$affiliates{$crs}},\%{$LC_code{$crs}},\$logmsg,\$newusermsg,'automated'); |
my ($changecount,$response) = &LONCAPA::Enrollment::update_LC($dom,$crs,$enrollvar{$crs}{autoadds},$enrollvar{$crs}{autodrops},$enrollvar{$crs}{startdate},$enrollvar{$crs}{enddate},$enrollvar{$crs}{authtype},$enrollvar{$crs}{autharg},$affiliates{$crs},$LC_code{$crs},\$logmsg,\$newusermsg,'automated'); |
print $fh &mt('Messages start for [_1]',$crs)."\n"; |
print $fh &mt('Messages start for [_1]',$crs)."\n"; |
print $fh "$logmsg\n"; |
print $fh "$logmsg\n"; |
print $fh &mt('Messages end for [_1]',$crs)."\n"; |
print $fh &mt('Messages end for [_1]',$crs)."\n"; |