--- loncom/interface/loncommon.pm 2006/06/22 20:48:56 1.391 +++ loncom/interface/loncommon.pm 2006/06/26 21:54:34 1.397 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.391 2006/06/22 20:48:56 albertel Exp $ +# $Id: loncommon.pm,v 1.397 2006/06/26 21:54:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2725,9 +2725,18 @@ Returns: value of designparamter $which =cut -############################################## + sub designparm { my ($which,$domain)=@_; + my $result = &designparm_real(@_); + &Apache::lonnet::logthis(" $which $domain reulted in $result"); + return $result; +} + + +############################################## +sub designparm_real { + my ($which,$domain)=@_; if ($env{'browser.blackwhite'} eq 'on') { if ($which=~/\.(font|alink|vlink|link)$/) { return '#000000'; @@ -2739,11 +2748,11 @@ sub designparm { return '#CCCCCC'; } } - if ($env{'environment.color.'.$which}) { + if (exists($env{'environment.color.'.$which})) { return $env{'environment.color.'.$which}; } $domain=&determinedomain($domain); - if ($designhash{$domain.'.'.$which}) { + if (exists($designhash{$domain.'.'.$which})) { return $designhash{$domain.'.'.$which}; } else { return $designhash{'default.'.$which}; @@ -3107,6 +3116,7 @@ sub standard_css { my $link = &designparm($function.'.link', $domain); my $sans = 'Arial,Helvetica,sans-serif'; + my $mono = 'monospace'; my $data_table_head = $tabbg; my $data_table_light = '#EEEEEE'; my $data_table_dark = '#DDD'; @@ -3120,6 +3130,9 @@ sub standard_css { my $mail_other = '#99BBBB'; my $mail_other_hover = '#669999'; my $table_header = '#DDDDDD'; + + my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' + : '0px 3px 0px 4px'; return <