[Bio] / GBBergeyDB / GBBergeyDB.pm Repository:
ViewVC logotype

Annotation of /GBBergeyDB/GBBergeyDB.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : paczian 1.1 package GBBergeyDB;
2 :    
3 :     use base qw( WebLayout );
4 :    
5 :     1;
6 :    
7 :     sub set_content {
8 :     my ($self, $parameters) = @_;
9 :    
10 :     my $content = $parameters->{content} || "";
11 :     my $menu = $parameters->{menu} || "";
12 :     my $title = $parameters->{title} || "";
13 :    
14 :     # fill in variable template parameters
15 :     my $template = $self->_template;
16 :     $template->param( CONTENT => $content);
17 :     $template->param( MENU => $menu );
18 :     $template->param( TITLE => $title );
19 :    
20 :     # fill in static template parameters
21 :     $template->param(STYLESHEET => "./Html/css/genomeselector.css");
22 :     $template->param(JAVASCRIPT => "");
23 :     $template->param(LOGO => "./Html/selector-logo.gif");
24 :     $template->param(LOGO_ALT => "");
25 :     $template->param(TITLE_IMAGE => "./Html/selector-title.gif");
26 :     $template->param(TITLE_ALT => "Genome Selector");
27 :     $template->param(VERSION => "version 1.0");
28 :     $template->param(TITLE_DESCRIPTION => "");
29 :     $template->param(FOOTER => "");
30 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3