lib/CXGN/Page/VHost.pm

   1
   2 =head1 NAME
   3
   4 CXGN::Page::VHost
   5
   6 =head1 DESCRIPTION
   7
   8 An abstract object which helps CXGN::Page generate HTML pages. Subclass this object to add vhost-specific details (banners, toolbars, etc.) to pages. Important note: this is not and should not be a subclass of CXGN::Page.
   9
  10 =head1 AUTHOR
  11
  12 john binns - John Binns <zombieite@gmail.com>
  13
  14 =cut
  15
  16 package CXGN::Page::VHost;
  17
  18 use base qw | CXGN::DB::Object |;
  19
  20 use strict;
  21
  22 sub new {
  23     my $class=shift;
  24     my $dbh = shift;
  25     my $self = $class->SUPER::new($dbh);
  26     return $self;
  27 }
  28 sub html_head {
  29     my $self=shift;
  30     my($page_title, $extra)=@_;
  31     $page_title||='Sol Genomics Network';
  32     my $ret_html=<<EOHTMLEIEIO;
  33 <head>
  34 <title>$page_title</title>
  35 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  36
  37 <script language="JavaScript" type="text/javascript">
  38 var docroot = '/';
  39 JSAN = {};
  40 JSAN.use = function() {};
  41 </script>
  42
  43 $extra
  44 </head>
  45 EOHTMLEIEIO
  46     return $ret_html;
  47 }
  48
  49 sub banner_logo {
  50     return'';
  51 }
  52
  53 sub toolbar {
  54     return'';
  55 }
  56
  57 sub footer_html {
  58     return'';
  59 }
  60
  61 sub bar_top {
  62         return '';
  63 }
  64 ###
  65 1;#do not remove
  66 ###