--- loncom/interface/loncommon.pm	2006/04/20 02:24:08	1.344
+++ loncom/interface/loncommon.pm	2006/04/21 22:00:56	1.346
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.344 2006/04/20 02:24:08 albertel Exp $
+# $Id: loncommon.pm,v 1.346 2006/04/21 22:00:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3042,15 +3042,76 @@ sub endbodytag {
 }
 
 sub standard_css {
+    my ($function,$domain,$bgcolor) = @_;
+    my $function = &get_users_function() if (!$function);
+    my $img =    &designparm($function.'.img',$domain);
+    my $tabbg =  &designparm($function.'.tabbg',$domain);
+    my $font =   &designparm($function.'.font',$domain);
+    my $sidebg = &designparm($function.'.sidebg',$domain);
+    my $pgbg   = $bgcolor || &designparm($function.'.pgbg',$domain);
+
+    my $alink  = &designparm($function.'.alink',$domain);
+    my $vlink  = &designparm($function.'.vlink',$domain);
+    my $link   = &designparm($function.'.link',$domain);
+    my $sans   = 'Arial,Helvetica,sans-serif';
     return <<END;
 <style type="text/css">
-h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
+h1, h2, h3, th { font-family: $sans }
 a:focus { color: red; background: yellow } 
 table.thinborder { border-collapse: collapse; }
 table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
 form, .inline { display: inline; }
 .center { text-align: center; }
 .filename {font-family: monospace;}
+
+table#LC_top_nav, table#LC_menubuttons, table#LC_nav_location {
+  width: 100%;
+  background: $pgbg;
+  border: 0px;
+  border-spacing: 1px;
+  padding: 0px;
+  margin: 0px;
+  border-collapse: separate;
+}
+table#LC_menubuttons_mainmenu {
+  background: $pgbg;
+  border: 0px;
+  border-spacing: 1px;
+  padding: 0px;
+  margin: 0px;
+  border-collapse: separate;
+}
+table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {
+  border: 0px;
+}
+table#LC_top_nav td {
+  background: $tabbg;
+}
+table#LC_top_nav td a, div#LC_top_nav a {
+  color: $font;
+  font-family: $sans;
+}
+.LC_menubuttons_inline_text {
+  color: $font;
+  font-family: $sans;
+  font-size: smaller;
+}
+
+td.LC_menubuttons_text {
+  color: $font;
+  font-family: $sans;
+}
+td.LC_menubuttons_img {
+  background: $tabbg;
+}
+.LC_current_location {
+  font-family: $sans;
+  background: $tabbg;
+}
+.LC_new_mail {
+  font-family: $sans;
+  font-weight: bold;
+}
 </style>
 END
 }