[BACK]Return to lonmsgdisplay.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.26 and 1.28

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} = '';
Removed from v.1.26  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>