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

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 01 Jun 2006 19:21:23 -0000


albertel		Thu Jun  1 15:21:23 2006 EDT

  Modified files:              
    /loncom/interface/statistics	longradinganalysis.pm 
  Log:
  - data tabling
  
  
Index: loncom/interface/statistics/longradinganalysis.pm
diff -u loncom/interface/statistics/longradinganalysis.pm:1.5 loncom/interface/statistics/longradinganalysis.pm:1.6
--- loncom/interface/statistics/longradinganalysis.pm:1.5	Fri May  5 16:03:43 2006
+++ loncom/interface/statistics/longradinganalysis.pm	Thu Jun  1 15:21:22 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: longradinganalysis.pm,v 1.5 2006/05/05 20:03:43 raeburn Exp $
+# $Id: longradinganalysis.pm,v 1.6 2006/06/01 19:21:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -216,13 +216,17 @@
 		  '<a href="'.$filename.'">'.
 		  &mt('Your Excel spreadsheet.').'</a>'."\n");
     } else {
-	$r->print('<table class="thinborder">');
-	$r->print('<tr><th>Name (username)</th><th>Grades Assigned</th></tr>');
+	$r->print(&Apache::loncommon::start_data_table());
+	$r->print(&Apache::loncommon::start_data_table_header_row().
+		  '<th>Name (username)</th><th>Grades Assigned</th>'.
+		  &Apache::loncommon::end_data_table_header_row() );
 	foreach my $line (@output) {
-	    $r->print(sprintf("<tr><td>%s (<tt>%s</tt>)</td><td>%s</td></tr>",
-			      @{$line}));
+	    $r->print(&Apache::loncommon::start_data_table_row().
+		      sprintf("<td>%s (<tt>%s</tt>)</td><td>%s</td></tr>",
+			      @{$line}).
+		      &Apache::loncommon::end_data_table_row());
 	}
-	$r->print('</table>');
+	$r->print(&Apache::loncommon::end_data_table());
     }
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
 }