[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.396 and 1.397

version 1.396, 2006/06/23 05:56:35 version 1.397, 2006/06/26 21:54:34
Line 2725  Returns: value of designparamter $which Line 2725  Returns: value of designparamter $which
   
 =cut  =cut
   
 ##############################################  
 sub designparm {  sub designparm {
     my ($which,$domain)=@_;      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 ($env{'browser.blackwhite'} eq 'on') {
  if ($which=~/\.(font|alink|vlink|link)$/) {   if ($which=~/\.(font|alink|vlink|link)$/) {
     return '#000000';      return '#000000';
Line 2739  sub designparm { Line 2748  sub designparm {
     return '#CCCCCC';      return '#CCCCCC';
  }   }
     }      }
     if ($env{'environment.color.'.$which}) {      if (exists($env{'environment.color.'.$which})) {
  return $env{'environment.color.'.$which};   return $env{'environment.color.'.$which};
     }      }
     $domain=&determinedomain($domain);      $domain=&determinedomain($domain);
     if ($designhash{$domain.'.'.$which}) {      if (exists($designhash{$domain.'.'.$which})) {
  return $designhash{$domain.'.'.$which};   return $designhash{$domain.'.'.$which};
     } else {      } else {
         return $designhash{'default.'.$which};          return $designhash{'default.'.$which};
Line 3413  table.LC_parm_overview_restrictions th { Line 3422  table.LC_parm_overview_restrictions th {
   border-style: solid;    border-style: solid;
   border-color: $pgbg;    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  END
 }  }
Removed from v.1.396  
changed lines
  Added in v.1.397

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>