--- loncom/interface/loncommon.pm	2006/06/22 17:56:06	1.386
+++ loncom/interface/loncommon.pm	2006/06/23 03:00:53	1.393
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.386 2006/06/22 17:56:06 albertel Exp $
+# $Id: loncommon.pm,v 1.393 2006/06/23 03:00:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3119,7 +3119,10 @@ sub standard_css {
     my $mail_replied_hover   = '#888855';
     my $mail_other           = '#99BBBB';
     my $mail_other_hover     = '#669999';
+    my $table_header         = '#DDDDDD';
 
+    my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'
+	                                              : '0px 3px 0px 4px';
     return <<END;
 h1, h2, h3, th { font-family: $sans }
 a:focus { color: red; background: yellow } 
@@ -3136,41 +3139,25 @@ form, .inline { display: inline; }
   color: green;
 }
 
-table#LC_top_nav, table#LC_menubuttons, table#LC_nav_location {
+table#LC_top_nav, table#LC_menubuttons {
   width: 100%;
   background: $pgbg;
-  border: 0px;
-  border-spacing: 2px 2px;
-  padding: 0px;
-  margin: 0px;
-  border-collapse: separate;
-}
-table#LC_title_bar {
-  width: 100%;
-  border: 0;
-  border-spacing: 0px 0px;
-  padding: 0px 2px 0px 2px;
-  background: $pgbg;
-  font-family: $sans;
-  border-collapse: separate;
-}
-table#LC_breadcrumbs {
-  width: 100%;
-  border: 0;
-  border-spacing: 0px;
-  padding: 0px 2px 0px 2px;
-  background: $pgbg;
-  font-family: $sans;
-  border-collapse: separate;
+  border: 2px;
+  border-collapse: seperate;
 }
+
+table#LC_title_bar, table#LC_breadcrumbs, table#LC_nav_location,
 table#LC_title_bar.LC_with_remote {
   width: 100%;
-  border: 0;
-  border-spacing: 0;
+  border-color: $pgbg;
+  border-style: solid;
+  border-width: $border;
+
   background: $pgbg;
   font-family: $sans;
   border-collapse: collapse;
 }
+
 table#LC_title_bar td {
   padding: 3px;
   background: $tabbg;
@@ -3207,6 +3194,7 @@ table#LC_menubuttons img, table#LC_menub
 }
 table#LC_top_nav td {
   background: $tabbg;
+  border: 0px;
 }
 table#LC_top_nav td a, div#LC_top_nav a {
   color: $font;
@@ -3333,6 +3321,55 @@ table#LC_portfolio_actions td.LC_value {
   background: $tabbg;
 }
 
+table#LC_cstr_controls {
+  width: 100%;
+  border-collapse: collapse;
+}
+table#LC_cstr_controls tr td {
+  border: 4px solid $pgbg;
+  padding: 4px;
+  text-align: center;
+  background: $tabbg;
+}
+table#LC_cstr_controls tr th {
+  border: 4px solid $pgbg;
+  background: $table_header;
+  text-align: center;
+  font-family: $sans;
+  font-size: smaller;
+}
+
+table#LC_browser {
+ 
+}
+table#LC_browser tr th {
+  background: $table_header;
+}
+table#LC_browser tr td {
+  padding: 2px;
+}
+table#LC_browser tr.LC_browser_file,
+table#LC_browser tr.LC_browser_file_published {
+  background: #CCFF88;
+}
+table#LC_browser tr.LC_browser_file_locked,
+table#LC_browser tr.LC_browser_file_unpublished {
+  background: #FFAA99;
+}
+table#LC_browser tr.LC_browser_file_obsolete {
+  background: #AAAAAA;
+}
+table#LC_browser tr.LC_browser_file_modified {
+  background: #FFFF77;
+}
+table#LC_browser tr.LC_browser_folder {
+  background: #CCCCFF;
+}
+span.LC_current_location {
+  font-size: x-large;
+  background: $pgbg;
+}
+
 END
 }
 
@@ -3369,8 +3406,8 @@ sub headtag {
     my $function = $args->{'function'} || &get_users_function();
     my $domain   = $args->{'domain'}   || &determinedomain();
     my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);
-    my $url = join(':',$env{'user.name'},$env{'user.domain'},
-		   $env{'environment.color.timestamp'},
+    my $url = join(':',$env{'user.name'},$env{'user.domain'},time(),
+		   #$env{'environment.color.timestamp'},
 		   $function,$domain,$bgcolor);
 
     $url = '/adm/css/'.&escape($url).'.css';
@@ -3698,29 +3735,29 @@ sub simple_error_page {
     my $row_count;
     sub start_data_table {
 	undef($row_count);
-	return '<table class="LC_data_table">';
+	return '<table class="LC_data_table">'."\n";
     }
 
     sub end_data_table {
 	undef($row_count);
-	return '</table>';
+	return '</table>'."\n";;
     }
 
     sub start_data_table_row {
 	$row_count++;
-	return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>';
+	return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>'."\n";;
     }
 
     sub end_data_table_row {
-	return '</tr>';
+	return '</tr>'."\n";;
     }
 
     sub start_data_table_header_row {
-	return  '<tr class="LC_header_row">';
+	return  '<tr class="LC_header_row">'."\n";;
     }
 
     sub end_data_table_header_row {
-	return '</tr>';
+	return '</tr>'."\n";;
     }
 }