EnsEMBL::Web::Document::HTML Copyright
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
CGI qw ( escape )
EnsEMBL::Web::Document::HTML
EnsEMBL::Web::RegObj
Inherit
EnsEMBL::Web::Document::HTML
Synopsis
No synopsis!
Description
No description!
Methods
new
No description
Code
render
No description
Code
sitename
No description
Code
Methods description
None available.
Methods code
newdescriptionprevnextTop
sub new {
 return shift->SUPER::new( 'sitename' => '?' );
}
renderdescriptionprevnextTop
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
&copy; <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;
}
sitenamedescriptionprevnextTop
sub sitename {
:lvalue { $_[0]{'sitename'};
}
General documentation
No general documentation available.