--- loncom/interface/loncommon.pm 2006/04/18 22:35:41 1.342 +++ loncom/interface/loncommon.pm 2006/04/21 20:45:42 1.345 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.342 2006/04/18 22:35:41 albertel Exp $ +# $Id: loncommon.pm,v 1.345 2006/04/21 20:45:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,6 +63,7 @@ use Apache::lonlocal; use HTML::Entities; use Apache::lonhtmlcommon(); use Apache::loncoursedata(); +use Apache::lontexconvert(); my $readit; @@ -2807,15 +2808,6 @@ sub bodytag { # construct main body tag my $bodytag = < -h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } -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;} - END @@ -3049,6 +3041,48 @@ sub endbodytag { return $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 < +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 { + width: 100%; + background: $pgbg; + border: 0px; + border-spacing: 1px; + padding: 0px; + margin: 0px; + border-collapse: separate; +} +table#LC_top_nav td { + background: $tabbg; +} +table#LC_top_nav td a, div#LC_top_nav a { + color: $font; + font-family: $sans; +} + +END +} + =pod =over 4 @@ -3076,6 +3110,7 @@ sub headtag { my $result = ''. + &standard_css(). &font_settings(). &Apache::lonhtmlcommon::htmlareaheaders(); @@ -3089,7 +3124,7 @@ sub headtag { $env{'internal.head.redirect'} = $url; $result.=< - + ADDMETA } if (!defined($title)) {