--- loncom/interface/loncommon.pm 2003/11/08 01:45:26 1.145 +++ loncom/interface/loncommon.pm 2003/11/10 01:58:29 1.146 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.145 2003/11/08 01:45:26 www Exp $ +# $Id: loncommon.pm,v 1.146 2003/11/10 01:58:29 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2118,8 +2118,9 @@ sub bodytag { my $sidebg=&designparm($function.'.sidebg',$domain); # Accessibility font enhance unless ($addentries) { $addentries=''; } + my $addstyle=''; if ($ENV{'browser.fontenhance'} eq 'on') { - $addentries.=' style="font-size: x-large"'; + $addstyle=' font-size: x-large;'; } # role and realm my ($role,$realm) @@ -2137,8 +2138,13 @@ sub bodytag { if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } # construct main body tag my $bodytag = < +h1, h2, h3, th, a { font-family: Arial, Helvetica, sans-serif } +a:hover { color: black; background: yellow } +a:focus { color: red; background: yellow } + +style="border-color: $tabbg; border-width: 4px; border-style: solid; padding: 4px;$addstyle" $addentries> END my $upperleft=''; @@ -2169,9 +2175,9 @@ $upperleft - $title - - + $title + + $ENV{'environment.firstname'} $ENV{'environment.middlename'} $ENV{'environment.lastname'} @@ -2180,7 +2186,7 @@ $upperleft -$role  +$role  $realm