--- loncom/interface/lonmsgdisplay.pm	2006/05/11 19:04:31	1.23
+++ loncom/interface/lonmsgdisplay.pm	2006/05/11 20:05:03	1.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.23 2006/05/11 19:04:31 www Exp $
+# $Id: lonmsgdisplay.pm,v 1.24 2006/05/11 20:05:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -260,9 +260,9 @@ sub movemsg {
 
 sub discourse {
     my $r=shift;
-    my $classlist = &Apache::loncoursedata::get_classlist();
+    my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
     my ($classgroups,$studentgroups) = 
-	&Apache::loncoursedata::get_group_memberships($classlist);
+	&Apache::loncoursedata::get_group_memberships($classlist,$keylist);
     my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All',
             'cfs' => 'Check Section/Group',
             'cfn' => 'Uncheck All');