version 1.22, 2006/07/21 17:47:36
|
version 1.23, 2007/01/01 19:19:58
|
Line 138
|
Line 138
|
if ($changecount > 0) { |
if ($changecount > 0) { |
unless ($enrollvar{$crs}{notifylist} eq '') { |
unless ($enrollvar{$crs}{notifylist} eq '') { |
# Send message about enrollment changes to notifylist. |
# Send message about enrollment changes to notifylist. |
# Set $env{'user.name'}, $env{'user.home'} for use by logging in lonmsg |
# Set $env{'user.name'}, $env{'user.domain'}, $env{'user.home'} |
|
# for use by logging in lonmsg |
unless ( ($enrollvar{$crs}{'courseowner'} eq '') || (!defined($enrollvar{$crs}{'courseowner'}) ) ) { |
unless ( ($enrollvar{$crs}{'courseowner'} eq '') || (!defined($enrollvar{$crs}{'courseowner'}) ) ) { |
$env{'user.name'} = $enrollvar{$crs}{'courseowner'}; |
if ($enrollvar{$crs}{'courseowner'} =~ /:/) { |
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$dom); |
($env{'user.name'},$env{'user.domain'}) = split(/:/,$enrollvar{$crs}{'courseowner'}); |
|
} else { |
|
$env{'user.name'} = $enrollvar{$crs}{'courseowner'}; |
|
$env{'user.domain'} = $dom; |
|
} |
|
$env{'user.home'} = &Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}); |
|
|
my $subject = "Student enrollment changes in $enrollvar{$crs}{coursecode}"; |
my $subject = "Student enrollment changes in $enrollvar{$crs}{coursecode}"; |
my $message = "The following $changecount change(s) occurred in $enrollvar{$crs}{description} - $enrollvar{$crs}{coursecode} as a result of the automated classlist update:\n\n".$response; |
my $message = "The following $changecount change(s) occurred in $enrollvar{$crs}{description} - $enrollvar{$crs}{coursecode} as a result of the automated classlist update:\n\n".$response; |
Line 165
|
Line 171
|
} |
} |
if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) { |
if ( ($enrollvar{$crs}{notifylist} eq '') && ($newusermsg ne '') ) { |
my $subject = "New user accounts in $enrollvar{$crs}{'coursecode'}"; |
my $subject = "New user accounts in $enrollvar{$crs}{'coursecode'}"; |
my $status = &Apache::lonmsg::user_normal_msg($env{'user.name'},$dom,$subject,$newusermsg); |
my $status = &Apache::lonmsg::user_normal_msg($env{'user.name'},$env{'user.domain'},$subject,$newusermsg); |
} |
} |
delete($env{'user.name'}); |
delete($env{'user.name'}); |
delete($env{'user.home'}); |
delete($env{'user.home'}); |
|
$env{'user.domain'} = $dom; |
} |
} |
} |
} |
} |
} |