my $self = shift;

  my $species_defs = $ENSEMBL_WEB_REGISTRY->species_defs;
  my @species = sort $species_defs->valid_species;
  my $healthchecks = $species_defs->databases->{'DATABASE_HEALTHCHECK'};
  my $html;

  if ($healthchecks) {

    $html = qq(
<h2>Healthchecks</h2>
<ul>
  <li><a href="/Healthcheck/Summary">Healthcheck summary</a></li>
</ul>
);
  }

  $html .= qq(<h3>Species</h3>
<table style="width:100%">
  <tr>
  );

  my $columns = 2;
  my $column_width = int((100 / $columns) - 8);
  my $total = @species;
  my $break = int($total / $columns);
  $break++ if $total % $columns;
  ## Reset total to number of cells required for a complete table
  $total = $break * $columns;

  my $row = -1;
  for (my $i=0; $i < $total; $i++) {
    my $col = int($i % $columns);
    if ($col == 0 && $i < $total - 1) {
       $html .= qq(</tr>\n<tr>);
    }
    $row++ if $col == 0;
    my $j = $row + $break * $col;
    
    my $dir = $species[$j];
    (my $name = $dir) =~ s/_/ /g;

    $html .= qq(<td style="width:8%;text-align:right;padding-bottom:1em">);
    if ($dir) {
      $html .= qq(<img src="/img/species/thumb_$dir.png" alt="$name">);
    }
    else {
      $html .= '&nbsp;';
    }
    $html .= qq(</td>\n<td style="width:$column_width%;padding:2px;padding-bottom:1em">);
    if ($dir) {
      if ($healthchecks) {
        $html .= qq(<span style="font-weight:bold;font-size:1.1em">$name</span><br /><a href="/$dir/Healthcheck/Details">Healthcheck</a> 
          | <a href="http://staging.ensembl.org/$dir/">View on staging</a>);
      }
      else {
        $html .= qq(<a href="/$dir/" style="font-weight:bold;font-size:1.1em;text-decoration:none">$name</a>);
      }
    }
    else {
      $html .= '&nbsp;';
    }
    $html .= '</td>';
  }

  $html .= qq(
</tr>
</table>);
  
  return $html;
}


}

1;