version 1.26, 2006/05/17 09:51:26
|
version 1.28, 2006/05/23 21:42:09
|
Line 28
|
Line 28
|
|
|
|
|
package Apache::lonmsgdisplay; |
package Apache::lonmsgdisplay; |
use Apache::lonselstudent; |
|
|
|
=pod |
=pod |
|
|
Line 126 use Apache::lonlocal;
|
Line 125 use Apache::lonlocal;
|
use Apache::loncommunicate; |
use Apache::loncommunicate; |
use Apache::lonfeedback; |
use Apache::lonfeedback; |
use Apache::lonrss(); |
use Apache::lonrss(); |
|
use Apache::lonselstudent(); |
|
|
# Querystring component with sorting type |
# Querystring component with sorting type |
my $sqs; |
my $sqs; |
Line 264 sub discourse {
|
Line 264 sub discourse {
|
my ($course_personnel, |
my ($course_personnel, |
$current_members, |
$current_members, |
$expired_members, |
$expired_members, |
$future_members) = &Apache::lonselstudent::get_people_in_class(); |
$future_members) = |
|
&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'}); |
unshift @$current_members, (@$course_personnel); |
unshift @$current_members, (@$course_personnel); |
my %defaultUsers; |
my %defaultUsers; |
|
|
Line 274 sub discourse {
|
Line 275 sub discourse {
|
\%defaultUsers, |
\%defaultUsers, |
1,"selectedusers",1); |
1,"selectedusers",1); |
|
|
|
$result .= &Apache::lonselstudent::render_student_list($expired_members, |
|
"compemail", |
|
"expired", |
|
\%defaultUsers, |
|
1, "selectedusers",0); |
|
$result .= &Apache::lonselstudent::render_student_list($future_members, |
|
"compemail", |
|
"future", |
|
\%defaultUsers, |
|
1, "selectedusers", 0); |
return $result; |
return $result; |
} |
} |
|
|
Line 1630 sub sendoffmail {
|
Line 1641 sub sendoffmail {
|
my %toaddr; |
my %toaddr; |
if ($to) { |
if ($to) { |
foreach my $dest (@$to) { |
foreach my $dest (@$to) { |
my ($user,$domain) = split /:/, $dest; |
my ($user,$domain) = split(/:/, $dest); |
if (($user ne '') && ($domain ne '')) { |
if (($user ne '') && ($domain ne '')) { |
my $address = $user.":".$domain; # How the code below expects it. |
my $address = $user.":".$domain; # How the code below expects it. |
$toaddr{$address} = ''; |
$toaddr{$address} = ''; |