version 1.29, 2008/01/02 03:39:50
|
version 1.30, 2009/01/04 05:52:58
|
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 167
|
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'} = $settings->{'sender_uname'}; |
$env{'user.domain'} = $ownerdom; |
$env{'user.domain'} = $settings->{'sender_domain'}; |
|
} |
} |
} |
if ($enrollvar{$crs}{notifylist} eq '') { |
if ($enrollvar{$crs}{notifylist} eq '') { |
if ($newusermsg ne '') { |
if ($newusermsg ne '') { |
Line 184
|
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 223
|
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'}); |