--- loncom/interface/lonselstudent.pm 2006/05/15 22:01:12 1.2 +++ loncom/interface/lonselstudent.pm 2006/05/17 15:01:40 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # lonselstudent.pm : Reusable subs for student selection. # -# $Id: lonselstudent.pm,v 1.2 2006/05/15 22:01:12 foxr Exp $ +# $Id: lonselstudent.pm,v 1.3 2006/05/17 15:01:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -330,12 +330,14 @@ SCRIPT # True -> checkboxes. # False -> radiobuttons. - $result .= "\n"; - $result .= ''."\n"; - $result .= ' '."\n"; - $result .= ' '."\n"; - $result .= ' '."\n"; - $result .= ' '."\n"; + $result .= &Apache::loncommon::start_data_table(); + $result .= &Apache::loncommon::start_data_table_header_row(); + $result .= ''."\n"; + $result .= ' '."\n"; + $result .= ' '."\n"; + $result .= ' '."\n"; + $result .= ' '."\n"; + $result .= &Apache::loncommon::end_data_table_header_row(); my $input_type; if ($multiselect) { @@ -346,7 +348,8 @@ SCRIPT my $checked = 0; for my $student (@$students) { - $result .= ''."\n"; + . ''.&Apache::loncommon::end_data_table_row(). + "\n"; } - $result .="
NameSectionStatusRoleUsername : Domain
NameSectionStatusRoleUsername : Domain
[0]; @@ -377,9 +380,11 @@ SCRIPT $result .= HTML::Entities::encode($student->[4], '<>&"') . ''."\n"; $result .= HTML::Entities::encode($student->[0], '<>&"') - . '


\n"; + $result .= &Apache::loncommon::end_data_table(). + "

\n"; return $result; }