Parent Directory
| 
Revision Log
Revision 1.2 - (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 : | paczian | 1.2 | $template->param(STYLESHEET => "./Html/genomeselector.css"); |
| 22 : | paczian | 1.1 | $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 |