--- loncom/interface/loncommon.pm 2006/06/23 05:25:27 1.395 +++ 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.395 2006/06/23 05:25:27 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}; @@ -3396,6 +3405,45 @@ span.LC_parm_folder, span.LC_parm_symb { color: #AAAAAA; } +td.LC_parm_overview_level_menu, td.LC_parm_overview_map_menu, +td.LC_parm_overview_parm_selectors, td.LC_parm_overview_parm_restrictions { + border: 1px solid black; + border-collapse: collapse; +} +table.LC_parm_overview_restrictions td { + border-width: 1px 4px 1px 4px; + border-style: solid; + border-color: $pgbg; + text-align: center; +} +table.LC_parm_overview_restrictions th { + background: $tabbg; + border-width: 1px 4px 1px 4px; + border-style: solid; + border-color: $pgbg; +} +table#LC_helpmenu_links { + width: 100%; + border: 1px solid black; + background: $pgbg; + padding: 0px; + border-spacing: 1px; +} +table#LC_helpmenu_links tr td { + padding: 1px; + background: $tabbg; +} + +table#LC_helpmenu_links a:link, table#LC_helpmenu_links a:visited, +table#LC_helpmenu_links a:active { + text-decoration: none; + color: $font; +} +table#LC_helpmenu_links a:hover { + text-decoration: underline; + color: $vlink; +} + END }