[LON-CAPA-cvs] cvs: loncom /interface lonmsgdisplay.pm

foxr lon-capa-cvs@mail.lon-capa.org
Tue, 23 May 2006 21:42:15 -0000


foxr		Tue May 23 17:42:15 2006 EDT

  Modified files:              
    /loncom/interface	lonmsgdisplay.pm 
  Log:
  If user's role is restricted to a section only allow students in that
  section to be recipients of a course 'broadcast message'.
  
  
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.27 loncom/interface/lonmsgdisplay.pm:1.28
--- loncom/interface/lonmsgdisplay.pm:1.27	Wed May 17 10:58:28 2006
+++ loncom/interface/lonmsgdisplay.pm	Tue May 23 17:42:09 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.27 2006/05/17 14:58:28 albertel Exp $
+# $Id: lonmsgdisplay.pm,v 1.28 2006/05/23 21:42:09 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -264,7 +264,8 @@
     my ($course_personnel,
 	$current_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);
     my %defaultUsers;
 
@@ -274,6 +275,16 @@
 							  \%defaultUsers,
 							  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;
 }