Raw content of EnsEMBL::Web::Document::HTML::Copyright
<![CDATA[package EnsEMBL::Web::Document::HTML::Copyright;
### Replacement copyright notice for www.ensembl.org
use strict;
use CGI qw(escape);
use EnsEMBL::Web::Document::HTML;
use EnsEMBL::Web::RegObj;
our @ISA = qw(EnsEMBL::Web::Document::HTML);
sub new { return shift->SUPER::new( 'sitename' => '?' ); }
sub sitename :lvalue { $_[0]{'sitename'}; }
sub render {
my $self = shift;
my @time = localtime();
my $year = @time[5] + 1900;
my $sd = $ENSEMBL_WEB_REGISTRY->species_defs;
my $you_are_here = $ENV{'REQUEST_URI'};
my $referer = CGI::escape($you_are_here);
my $stable_URL = sprintf "http://%s.archive.ensembl.org%s",
CGI::escape($sd->ARCHIVE_VERSION), CGI::escape($ENV{'REQUEST_URI'});
$self->printf(
q(
<div class="twocol-left left unpadded">
%s release %d - %s
© <span class="print_hide"><a href="http://www.sanger.ac.uk/" class="nowrap">WTSI</a> /
<a href="http://www.ebi.ac.uk/" style="white-space:nowrap">EBI</a></span>
<span class="screen_hide_inline">WTSI / EBI<br />http://%s</span>
),
$sd->ENSEMBL_SITETYPE, $sd->ENSEMBL_VERSION,
$sd->ENSEMBL_RELEASE_DATE, $sd->ENSEMBL_SERVERNAME,
);
$self->printf('<div class="print_hide">');
unless ($ENV{'ENSEMBL_TYPE'} =~ /Help|Account|UserData/) {
$self->printf(
q(
<br />
<a class="modal_link" id="p_link" href="%s">Permanent link</a>
),
'/Help/Permalink?url='.$stable_URL,
);
unless ($you_are_here =~ /html$/ && $you_are_here ne '/index.html') {
## Omit archive links from static content, which tends to change a lot
$self->printf(
q(
- <a class="modal_link" id="a_link" href="%s">View in archive site</a>
),
'/Help/ArchiveList?url='.$referer,
);
}
}
$self->print('</div></div>');
}
1;
]]>