version 1.32, 2010/08/19 22:36:59
|
version 1.33, 2013/03/01 05:20:01
|
Line 54
|
Line 54
|
my $run_enroll = 0; |
my $run_enroll = 0; |
my $domsettings; |
my $domsettings; |
my %domconfig = |
my %domconfig = |
&Apache::lonnet::get_dom('configuration',['autoenroll'],$dom); |
&Apache::lonnet::get_dom('configuration',['autoenroll','coursedefaults'],$dom); |
if (ref($domconfig{'autoenroll'}) eq 'HASH') { |
if (ref($domconfig{'autoenroll'}) eq 'HASH') { |
$domsettings = $domconfig{'autoenroll'}; |
$domsettings = $domconfig{'autoenroll'}; |
if ($domsettings->{'run'} eq '1') { |
if ($domsettings->{'run'} eq '1') { |
Line 74
|
Line 74
|
my %enrollvar = (); |
my %enrollvar = (); |
my %reply = (); |
my %reply = (); |
my %LC_code = (); |
my %LC_code = (); |
|
my ($showcredits,$domdefcredits); |
|
if ((ref($domconfig{'coursedefaults'}) eq 'HASH') && |
|
(ref($domconfig{'coursedefaults'}{'coursecredits'}) eq 'HASH')) { |
|
if ($domconfig{'coursedefaults'}{'coursecredits'}{'official'}) { |
|
$showcredits = 1; |
|
$domdefcredits = $domconfig{'coursedefaults'}{'coursecredits'}{'official'}; |
|
} |
|
} |
foreach my $key (sort keys %courses) { |
foreach my $key (sort keys %courses) { |
my %args = ( |
my %args = ( |
one_time => 1, |
one_time => 1, |
Line 92
|
Line 100
|
$enrollvar{$crs}{$item} = &HTML::Entities::decode($settings{$item}); |
$enrollvar{$crs}{$item} = &HTML::Entities::decode($settings{$item}); |
} elsif ($item eq 'default_enrollment_start_date') { |
} elsif ($item eq 'default_enrollment_start_date') { |
$enrollvar{$crs}{startdate} = $settings{$item}; |
$enrollvar{$crs}{startdate} = $settings{$item}; |
} elsif ($item eq 'default_enrollment_end_date') { |
} elsif ($item eq 'default_enrollment_end_date') { |
$enrollvar{$crs}{enddate} = $settings{$item}; |
$enrollvar{$crs}{enddate} = $settings{$item}; |
} |
} |
} |
} |
Line 148
|
Line 156
|
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 $defaultcredits = $domdefcredits; |
|
if ($enrollvar{$crs}{defaultcredits}) { |
|
$defaultcredits = $enrollvar{$crs}{defaultcredits}; |
|
} |
|
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},$showcredits,$defaultcredits,$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"; |