| $DBTITLE Home |
| $SBEAMS_PART Home |
| Logout |
~;
if (uc($navigation_bar) eq 'YES') {
my $spad = ' ' x 3;
my $datamenu = qq~
~;
my $browsemenu = qq~
~;
my $coremenu = qq~
~;
my $othermenu = qq~
~;
my ($corecontent,$corelink) = $sbeams->make_toggle_section( content => $coremenu,
name => 'pr_core_menu',
sticky => 1 );
my ($browsecontent,$browselink) = $sbeams->make_toggle_section( content => $browsemenu,
name => 'pr_browse_menu',
visible => 1,
sticky => 1 );
my ($datacontent,$datalink) = $sbeams->make_toggle_section( content => $datamenu,
name => 'pr_data_menu',
sticky => 1 );
my ($othercontent,$otherlink) = $sbeams->make_toggle_section( content => $othermenu,
visible => 1,
name => 'pr_other_menu',
sticky => 1 );
my $gif_spacer = $sbeams->getGifSpacer(MENU_WIDTH);
print qq~
| $gif_spacer |
| $datalink Manage Data: |
| $datacontent |
| $browselink Browse Data: |
| $browsecontent |
| ${corelink}Core Management: |
| $corecontent |
| ${otherlink}Other Tools: |
| $othercontent |
~;
}
print qq~
|
|
|
~;
} else {
print qq~
|
~;
}
}
#
###############################################################################
# printStyleSheet
#
# Print the standard style sheet for pages. Use a font size of 10pt if
# remote client is on Windows, else use 12pt. This ends up making fonts
# appear the same size on Windows+IE and Linux+Netscape. Other tweaks for
# different browsers might be appropriate.
###############################################################################
sub printStyleSheet {
my $self = shift;
#### Obtain main SBEAMS object and use its style sheet
$sbeams = $self->getSBEAMS();
$sbeams->printStyleSheet();
}
###############################################################################
# printJavascriptFunctions
#
# Print the standard Javascript functions that should appear at the top of
# most pages. There probably should be some customization allowance here.
# Not sure how to design that yet.
###############################################################################
sub printJavascriptFunctions {
my $self = shift;
my $javascript_includes = shift;
print qq~
~;
}
###############################################################################
# documentation_list
###############################################################################
sub documentation_list {
#link for schema needs help
my $self = shift;
print qq~
Proteomics Documentation
~;
}
###############################################################################
# printPageFooter
###############################################################################
sub printPageFooter {
my $self = shift;
$self->display_page_footer(@_);
}
###############################################################################
# display_page_footer
###############################################################################
sub display_page_footer {
my $self = shift;
my %args = @_;
#### If the output mode is interactive text, display text header
my $sbeams = $self->getSBEAMS();
if ($sbeams->output_mode() eq 'interactive') {
$sbeams->printTextHeader(%args);
return;
}
#### If the output mode is not html, then we don't want a header here
if ($sbeams->output_mode() ne 'html') {
return;
}
#### Process the arguments list
my $close_tables = $args{'close_tables'} || 'YES';
my $display_footer = $args{'display_footer'} || 'YES';
my $separator_bar = $args{'separator_bar'} || 'NO';
#### If closing the content tables is desired
if ($close_tables eq 'YES') {
print qq~
|
