--- loncom/interface/loncommon.pm	2003/07/17 18:10:53	1.109
+++ loncom/interface/loncommon.pm	2003/07/25 10:44:36	1.110
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.109 2003/07/17 18:10:53 matthew Exp $
+# $Id: loncommon.pm,v 1.110 2003/07/25 10:44:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1721,6 +1721,17 @@ Returns: value of designparamter $which
 ##############################################
 sub designparm {
     my ($which,$domain)=@_;
+    if ($ENV{'browser.blackwhite'} eq 'on') {
+	if ($which=~/\.(font|alink|vlink|link)$/) {
+	    return '#000000';
+	}
+	if ($which=~/\.(pgbg|sidebg)$/) {
+	    return '#FFFFFF';
+	}
+	if ($which=~/\.tabbg$/) {
+	    return '#CCCCCC';
+	}
+    }
     if ($ENV{'environment.color.'.$which}) {
 	return $ENV{'environment.color.'.$which};
     }
@@ -1785,7 +1796,11 @@ sub bodytag {
     my $alink=&designparm($function.'.alink',$domain);
     my $vlink=&designparm($function.'.vlink',$domain);
     my $sidebg=&designparm($function.'.sidebg',$domain);
-
+# Accessibility font enhance
+    unless ($addentries) { $addentries=''; }
+    if ($ENV{'browser.fontenhance'} eq 'on') {
+	$addentries.=' style="font-size: x-large"';
+    }
  # role and realm
     my ($role,$realm)
        =&Apache::lonnet::plaintext((split(/\./,$ENV{'request.role'}))[0]);