Raw content of EnsEMBL::Web::Document::HTML::SpeciesList
<![CDATA[package EnsEMBL::Web::Document::HTML::SpeciesList;
## Alternative species listing style, that can show multiple links per species
use strict;
use warnings;
use EnsEMBL::Web::RegObj;
{
sub render {
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 .= ' ';
}
$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 .= ' ';
}
$html .= '</td>';
}
$html .= qq(
</tr>
</table>);
return $html;
}
}
1;
]]>