version 1.35.2.4, 2006/07/19 16:01:45
|
version 1.35.2.6, 2006/10/04 20:28:21
|
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)); |