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 use warnings;
  22
  23 sub new {
  24     my $class=shift;
  25     my $dbh = shift;
  26     my $self = $class->SUPER::new($dbh);
  27     return $self;
  28 }
  29 sub html_head {
  30     my $self=shift;
  31     my($page_title, $extra)=@_;
  32     $page_title||='Sol Genomics Network';
  33     my $ret_html=<<EOHTMLEIEIO;
  34 <head>
  35 <title>$page_title</title>
  36 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  37
  38 <script language="JavaScript" type="text/javascript">
  39 var docroot = '/';
  40 JSAN = {};
  41 JSAN.use = function() {};
  42 </script>
  43
  44 $extra
  45 </head>
  46 EOHTMLEIEIO
  47     return $ret_html;
  48 }
  49
  50 sub banner_logo {
  51     return'';
  52 }
  53
  54 sub toolbar {
  55     return'';
  56 }
  57
  58 sub footer_html {
  59     return'';
  60 }
  61
  62 sub bar_top {
  63         return '';
  64 }
  65 ###
  66 1;#do not remove
  67 ###