[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">
- <font size="5"><b>$title</b></font>
-<td bgcolor="$tabbg" align="right">
-<font size="2">
+ <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>
+<font size="2" face="Arial, Helvetica, sans-serif">$role</font>
</td></tr>
<tr>
<td bgcolor="$tabbg" align="right"><font size="2">$realm</font> </td></tr>