package GBBergeyDB;

use base qw( WebLayout );

1;

sub set_content {
  my ($self, $parameters) = @_;
  
  my $content = $parameters->{content} || "";
  my $menu    = $parameters->{menu} || "";
  my $title   = $parameters->{title} || "";

  # fill in variable template parameters
  my $template = $self->_template;
  $template->param( CONTENT => $content);
  $template->param( MENU    => $menu );
  $template->param( TITLE   => $title );

  # fill in static template parameters
  $template->param(STYLESHEET        => "./Html/genomeselector.css");
  $template->param(JAVASCRIPT        => "");
  $template->param(LOGO              => "./Html/selector-logo.gif");
  $template->param(LOGO_ALT          => "");
  $template->param(TITLE_IMAGE       => "./Html/selector-title.gif");
  $template->param(TITLE_ALT         => "Genome Selector");
  $template->param(VERSION           => "version 1.0");
  $template->param(TITLE_DESCRIPTION => "");
  $template->param(FOOTER            => "");
}