--- loncom/interface/lonmsgdisplay.pm 2010/01/25 17:59:43 1.124.4.4 +++ loncom/interface/lonmsgdisplay.pm 2010/01/25 20:56:40 1.124.4.6 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.124.4.4 2010/01/25 17:59:43 raeburn Exp $ +# $Id: lonmsgdisplay.pm,v 1.124.4.6 2010/01/25 20:56:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -509,6 +509,7 @@ sub movemsg { sub discourse { my ($statushash) = @_; my ($result,$active,$previous,$future); + my $crstype = &Apache::loncommon::course_type(); my ($course_personnel, $current_members, $expired_members, @@ -524,11 +525,20 @@ sub discourse { \%defaultUsers, 1,"selectedusers",1,'email') ) { - $result .= '