2007-11-13 Black and White

push(@MyInitVariables, \&LogoBar);

sub LogoBar {
  $InvisibleCookieParameters{theme} = 1;
  my $id = GetId();
  $id = $RCName if GetParam('action', 'browse') eq 'rc';
  $id = $HomePage unless $id;
  my $url = $ScriptName . '/' . $id;
  my $css = GetParam('css', $StyleSheet);
  my $text;
  my $pic;
  if (GetParam('theme', //) eq //) {
    # default: offer to switch to black-and-white
    $url .= "?theme=bw";
    $text = 'black and white';
    $pic = '/pics/alex.png';
  } else {
    $url .= "?theme=";
    $text = 'default color';
    $pic = '/alex/pics/alex-face-balcony-small.jpg';
  }
  # $url .= ';css=' if $css;
  $UserGotoBar .= qq {
<a class="logo" href="$url" title="Switch to $text theme">
  <img class="logo" src="$pic" />
</a>
};

@import "/css/beige-red.css";

body.bw {
    color: black;
    background-color: white;
}

body.bw h1, body.bw h2, body.bw h3,
body.bw h1 a, body.bw h2 a, body.bw h3 a,
body.bw div.journal h1, body.bw div.journal h2, body.bw div.journal h3,
body.bw a.number {
    color: inherit;
    text-decoration: none;
}

body.bw a {
    color: blue;
    text-decoration: underline;
}

div.footer a.logo {
    display: none;
}