[LON-CAPA-cvs] cvs: loncom /interface lonselstudent.pm

[albertel]

albertel		Wed May 17 11:01:40 2006 EDT

  Modified files:              
    /loncom/interface	lonselstudent.pm 
  Log:
  - data_tabling
  
  
Index: loncom/interface/lonselstudent.pm
diff -u loncom/interface/lonselstudent.pm:1.2 loncom/interface/lonselstudent.pm:1.3
--- loncom/interface/lonselstudent.pm:1.2	Mon May 15 18:01:12 2006
+++ loncom/interface/lonselstudent.pm	Wed May 17 11:01:40 2006
@@ -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 @@
     #  True -> checkboxes.
     #  False -> radiobuttons.
 
-    $result .= "<table border=\"2\">\n";
-    $result .= '<tr><th></th><th align="center">Name</th>'."\n";
-    $result .= '    <th align="center">Section</th>'."\n";
-    $result .= '    <th align="center">Status</th>'."\n";
-    $result .= '    <th align="center">Role</th>'."\n";
-    $result .= '    <th align="center">Username : Domain</th></tr>'."\n";
+    $result .= &Apache::loncommon::start_data_table();
+    $result .= &Apache::loncommon::start_data_table_header_row();
+    $result .= '<th></th><th>Name</th>'."\n";
+    $result .= '    <th>Section</th>'."\n";
+    $result .= '    <th>Status</th>'."\n";
+    $result .= '    <th>Role</th>'."\n";
+    $result .= '    <th>Username : Domain</th>'."\n";
+    $result .= &Apache::loncommon::end_data_table_header_row();
 
     my $input_type;
     if ($multiselect) {
@@ -346,7 +348,8 @@
 
     my $checked = 0;
     for my $student (@$students) {
-	$result .= '<tr><td><input type="'.$input_type.'"  name="'.
+	$result .= &Apache::loncommon::start_data_table_row().
+	    '<td><input type="'.$input_type.'"  name="'.
 	    $resultname.".forminput".'"';
 	my $user    = $student->[0];
 
@@ -377,9 +380,11 @@
 	$result .= HTML::Entities::encode($student->[4], '<>&"')
   	        . '</td><td align="center">'."\n";
 	$result .= HTML::Entities::encode($student->[0], '<>&"')
-	        . '</td></tr>'."\n";
+	        . '</td>'.&Apache::loncommon::end_data_table_row().
+		"\n";
     }
-    $result .=" </table> <br /> <hr />\n";
+    $result .= &Apache::loncommon::end_data_table().
+	" <br /> <hr />\n";
 
     return $result;
 }