Included libraries | Package variables | General documentation | Methods |
WebCvs | Raw content |
new | No description | Code |
render | No description | Code |
sitename | No description | Code |
new | description | prev | next | Top |
return shift->SUPER::new( 'sitename' => '?' );}
render | description | prev | next | Top |
my @time = localtime(); my $year = @time[5] + 1900; $_[0]->print( qq( <div class="twocol-left left unpadded"> © $year <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</span> </div>) ); } 1;}
sitename | description | prev | next | Top |
:lvalue { $_[0]{'sitename'};}