--- loncom/interface/loncommon.pm	2006/07/07 13:40:16	1.421
+++ loncom/interface/loncommon.pm	2006/07/07 15:54:15	1.422
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.421 2006/07/07 13:40:16 albertel Exp $
+# $Id: loncommon.pm,v 1.422 2006/07/07 15:54:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3265,6 +3265,9 @@ table.LC_data_table, table.LC_mail_list
   border: 1px solid #000000;
   border-collapse: separate;
 }
+.LC_data_table_dense {
+  font-size: small;
+}
 table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th {
   font-weight: bold;
   background-color: $data_table_head;
@@ -3272,7 +3275,7 @@ table.LC_data_table tr th, table.LC_cale
 }
 table.LC_data_table tr td {
   background-color: $data_table_light;
-  padding: 0px;
+  padding: 1px;
 }
 table.LC_data_table tr.LC_even_row td {
   background-color: $data_table_dark;
@@ -3884,8 +3887,10 @@ sub simple_error_page {
 {
     my $row_count;
     sub start_data_table {
+	my ($add_class) = @_;
+	my $css_class = (join(' ','LC_data_table',$add_class));
 	undef($row_count);
-	return '<table class="LC_data_table">'."\n";
+	return '<table class="'.$css_class.'">'."\n";
     }
 
     sub end_data_table {
@@ -3894,8 +3899,11 @@ sub simple_error_page {
     }
 
     sub start_data_table_row {
+	my ($add_class) = @_;
 	$row_count++;
-	return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>'."\n";;
+	my $css_class = ($row_count % 2)?'':'LC_even_row';
+	my $css_class = (join(' ',$css_class,$add_class));
+	return  '<tr class="'.$css_class.'">'."\n";;
     }
 
     sub end_data_table_row {