header.pm

一个论文管理系统

# $Id: Header.pm,v 1.16 2005/11/02 19:34:44 martin Exp $
#
# Copyright 2005 Nature Publishing Group
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# The Bibliotech::Component::Header class provides a header.

package Bibliotech::Component::Header;
use strict;
use base 'Bibliotech::Component';
use Bibliotech::DBI;

sub last_updated_basis {
  'LOGIN';
}

sub html_content {
  my ($self, $class, $verbose) = @_;
  my $bibliotech = $self->bibliotech;
  my $location = $bibliotech->location;
  my $cgi = $bibliotech->cgi;
  my $username = $bibliotech->request->notes->{'username'};

  my $o = $cgi->div({id => 'logininfo'},
		    $username
		    ? ('logged in as', $cgi->strong($username), ' ',
		       $cgi->a({href => $location.'logout'},
			       $cgi->img({src => $location.'logout.gif', alt => 'logout', border => 0, id => 'loginoutbutton'})))
		    : (' ', $cgi->a({href => $location.'login'},
			       $cgi->img({src => $location.'login.gif', alt => 'login', border => 0, id => 'loginoutbutton'})))
		    );

  $o .= $cgi->a({href => $location, class => 'logolink'},
			  $cgi->img({src => $location.'connotealogo.gif', alt => 'Connotea', border => 0, id => 'connotealogo'}));

  #$o .= $cgi->div({class => 'clearing'}, ' ');

  return Bibliotech::Page::HTML_Content->simple($o);
}

1;
__END__