[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

www lon-capa-cvs@mail.lon-capa.org
Mon, 10 Nov 2003 01:58:29 -0000


www		Sun Nov  9 20:58:29 2003 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Making stuff look a little nicer for browers which understand this.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.145 loncom/interface/loncommon.pm:1.146
--- loncom/interface/loncommon.pm:1.145	Fri Nov  7 20:45:26 2003
+++ loncom/interface/loncommon.pm	Sun Nov  9 20:58:29 2003
@@ -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 @@
     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 @@
     if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
 # construct main body tag
     my $bodytag = <<END;
+<style>
+h1, h2, h3, th, a { font-family: Arial, Helvetica, sans-serif }
+a:hover { color: black; background: yellow }
+a:focus { color: red; background: yellow } 
+</style>
 <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
-$addentries>
+style="border-color: $tabbg; border-width: 4px; border-style: solid; padding: 4px;$addstyle" $addentries>
 END
     my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'.
                    $lonhttpdPort.$img.'" />';
@@ -2169,9 +2175,9 @@
 </tr>
 <tr>
 <td rowspan="3" bgcolor="$tabbg">
-&nbsp;<font size="5"><b>$title</b></font>
-<td bgcolor="$tabbg"  align="right">
-<font size="2">
+&nbsp;<font size="5" face="Arial, Helvetica, sans-serif"><b>$title</b></font>
+<td bgcolor="$tabbg" align="right">
+<font size="2" face="Arial, Helvetica, sans-serif">
     $ENV{'environment.firstname'}
     $ENV{'environment.middlename'}
     $ENV{'environment.lastname'}
@@ -2180,7 +2186,7 @@
 </td>
 </tr>
 <tr><td bgcolor="$tabbg" align="right">
-<font size="2">$role</font>&nbsp;
+<font size="2" face="Arial, Helvetica, sans-serif">$role</font>&nbsp;
 </td></tr>
 <tr>
 <td bgcolor="$tabbg" align="right"><font size="2">$realm</font>&nbsp;</td></tr>