loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2006/07/19 13:09:32	version 1.41, 2006/10/04 20:26:48
Line 270 sub discourse {	Line 270 sub discourse {
&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});	&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
unshift @$current_members, (@$course_personnel);	unshift @$current_members, (@$course_personnel);
my %defaultUsers;	my %defaultUsers;

	$result .= '<input type="hidden" name="sendmode" value="group" />'."\n";

$result = &Apache::lonselstudent::render_student_list($current_members,	$result .= &Apache::lonselstudent::render_student_list($current_members,
"compemail",	"compemail",
"current",	"current",
\%defaultUsers,	\%defaultUsers,
1,"selectedusers",1);	1,"selectedusers",1);

$result .= &Apache::lonselstudent::render_student_list($expired_members,	$result .= &Apache::lonselstudent::render_student_list($expired_members,
"compemail",	"compemail",
Line 1788 sub header {	Line 1790 sub header {

my $extra = &Apache::loncommon::studentbrowser_javascript();	my $extra = &Apache::loncommon::studentbrowser_javascript();
if ($baseurl) {	if ($baseurl) {
$extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />";	$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
}	}
$r->print(&Apache::loncommon::start_page('Communication and Messages',	$r->print(&Apache::loncommon::start_page('Communication and Messages',
$extra));	$extra));