version 1.27, 2007/05/15 06:19:53
|
version 1.31, 2009/01/08 16:58:04
|
Line 52
|
Line 52
|
foreach my $dom (@domains) { |
foreach my $dom (@domains) { |
#only run if configured to |
#only run if configured to |
my $run_enroll = 0; |
my $run_enroll = 0; |
my $settings; |
my $domsettings; |
my %domconfig = |
my %domconfig = |
&Apache::lonnet::get_dom('configuration',['autoenroll'],$dom); |
&Apache::lonnet::get_dom('configuration',['autoenroll'],$dom); |
if (ref($domconfig{'autoenroll'}) eq 'HASH') { |
if (ref($domconfig{'autoenroll'}) eq 'HASH') { |
$settings = $domconfig{'autoenroll'}; |
$domsettings = $domconfig{'autoenroll'}; |
if ($settings->{'run'} eq '1') { |
if ($domsettings->{'run'} eq '1') { |
$run_enroll = 1; |
$run_enroll = 1; |
} |
} |
} else { |
} else { |
Line 75
|
Line 75
|
my %reply = (); |
my %reply = (); |
my %LC_code = (); |
my %LC_code = (); |
foreach my $key (sort keys %courses) { |
foreach my $key (sort keys %courses) { |
my $crs; |
my %args = ( |
if ($key =~ m/^($dom)_(\w+)$/) { |
one_time => 1, |
$crs = $2; |
); |
} |
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::dump('environment',$dom,$crs); |
%{$enrollvar{$crs}} = (); |
%{$enrollvar{$crs}} = (); |
Line 166
|
Line 167
|
$ownerdom = $dom; |
$ownerdom = $dom; |
} |
} |
} |
} |
if (($settings->{'sender_uname'} ne '') && |
$env{'user.name'} = $ownername; |
($settings->{'sender_domain'} ne '')) { |
$env{'user.domain'} = $ownerdom; |
$env{'user.name'} = $settings->{'sender_uname'}; |
if (ref($domsettings) eq 'HASH') { |
$env{'user.domain'} = $settings->{'sender_domain'}; |
if (($domsettings->{'sender_uname'} ne '') && |
} else { |
($domsettings->{'sender_domain'} ne '')) { |
$env{'user.name'} = $ownername; |
$env{'user.name'} = $domsettings->{'sender_uname'}; |
$env{'user.domain'} = $ownerdom; |
$env{'user.domain'} = $domsettings->{'sender_domain'}; |
|
} |
} |
} |
if ($enrollvar{$crs}{notifylist} eq '') { |
if ($enrollvar{$crs}{notifylist} eq '') { |
if ($newusermsg ne '') { |
if ($newusermsg ne '') { |
Line 183
|
Line 185
|
} |
} |
} |
} |
} else { |
} else { |
|
$env{'form.can_reply'} = 'N'; |
my $msgcc; |
my $msgcc; |
# Send message about enrollment changes to notifylist. |
# Send message about enrollment changes to notifylist. |
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}); |
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}); |
Line 222
|
Line 225
|
my $status = |
my $status = |
&Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,undef,\%sentmessage,undef,undef,undef,1,$recipid); |
&Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,undef,\%sentmessage,undef,undef,undef,1,$recipid); |
} |
} |
|
delete($env{'form.can_reply'}); |
} |
} |
delete($env{'user.name'}); |
delete($env{'user.name'}); |
delete($env{'user.home'}); |
delete($env{'user.home'}); |
Line 235
|
Line 239
|
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) ) ) { |
print $fh &mt('No institutional classlist data could be retrieved for [_1]',$crs)."\n"; |
print $fh &mt('No institutional classlist data could be retrieved for [_1]',$crs)."\n"; |
} else { |
} else { |
print $fh ('Not within time window for auto-enrollment in [_1]',$crs)."\n"; |
print $fh &mt('Not within time window for auto-enrollment in [_1]',$crs)."\n"; |
} |
} |
} else { |
} else { |
print $fh &mt('Auto-enrollment not currently enabled for [_1]',$crs)."\n"; |
print $fh &mt('Auto-enrollment not currently enabled for [_1]',$crs)."\n"; |