#!C:\Perl\bin\Perl.exe -w #!/usr/bin/perl -w package EBI::HtmlHelper; require Exporter; @ISA = qw(Exporter) ; @EXPORT = qw(getServicesHelpMenuItems printTop printTopWithServicesHelpMenu top topWithMenu topWithServicesHelpMenu printTopWithMenu printBottom printBot bottom bot getServicesHelpMenuItemsNew printTopNew printTopWithServicesHelpMenuNew topNew topWithMenuNew topWithServicesHelpMenuNew printTopWithMenuNew printBottomNew printBotNew bottomNew botNew buildicon) ; #use strict; my $Helper_firstWord = "EBI"; my $Helper_intTags = [ ["seqdb/introduction", "http://www3.ebi.ac.uk/internal/seqdb/introduction/", "INTRODUCTION"], ["seqdb/organisation", "http://www3.ebi.ac.uk/internal/seqdb/organisation/", "GROUP ORGANISATION"], ["seqdb/projects", "http://www3.ebi.ac.uk/internal/seqdb/projects/", "GROUP PROJECTS"], ["seqdb/curators", "http://www3.ebi.ac.uk/internal/seqdb/curators/", "CURATION & SUBMISSION"], ["seqdb/computing", "http://www3.ebi.ac.uk/internal/seqdb/computing/", "COMPUTING PROCEDURES"], ["seqdb/release", "http://www3.ebi.ac.uk/internal/seqdb/release/", "RELEASE & STATUS"] ]; my $Helper_leftMenuItems = []; my $Helper_extTags = [ ["SHOULDNTMATCHTHISEVER!", "/", "/Information/", "images/home.gif", "images/home_o.gif", "EBI Home Page", "0"], ["aboutebi", "/Information/", "/Information/", "images/about.gif", "images/about_o.gif", "About the EBI", "1"], ["groups", "/Groups/", "/Groups/", "images/research.gif", "images/research_o.gif", "Groups at the EBI", "2"], ["services", "/services/", "/services/", "images/services.gif", "images/services_o.gif", "EBI Services", "3"], ["tools", "/Tools/", "/services/", "images/utilities.gif", "images/utilities_o.gif", "EBI Toolbox", "4"], ["databases", "/Databases/", "/services/", "images/databases.gif", "images/databases_o.gif", "EBI Databases", "5"], ["downloads", "/FTP/", "/services/", "images/downloads.gif", "images/downloads_o.gif", "EBI Downloads", "6"], ["submissions", "/Submissions/", "/services/", "images/submissions.gif","images/submissions_o.gif", "EBI Submissions", "7"] ]; my $yes = "yes"; my $no = "no"; my $stretchy = $no; # set to yes for nadeen/genomes - allows for huge page width my $Helper_pageTitle = "EBI Servlet"; my $Helper_topMenuItem = "services"; my $Helper_headerScript = ""; my $Helper_unLoadMethods = ""; my $Helper_loadMethods = ""; my $Helper_lastWords = "Servlet"; my $rightContents=""; my $icon_title = ""; my $icon_image_url = ""; my $icon_image_path = ""; my $icon_subtitle = ""; my $icon_text = ""; my $icon = ""; my $Helper_intBot = " \n" . "\n" . "\n" . ""; my $Helper_intBodyStart = "\n" . "\n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . " \n" . "
Home | Contact | Site | Help \"Image\"\"Image\"Site search\"Image\"\"Image\"\"Image\"
\n" . "\n" . " \n" . " \n" . " \n" . " \n" . " \n" . "
\"Image\"\"Image\"\"Image\"
\n"; my $Helper_extForms = ''; # no longer static... my $Helper_extBot = " \"spacer\"
"; my $Helper_extBot2 = " \"spacer\"
"; my $Helper_title = "EBI Servlet"; my $Helper_pageUrl = 0; my $Helper_extServicesHelpMenuItems = [ ["pop", "Help", "/help/help_frame.html"], ["pop", "General Help", "/help/general_frame.html"], ["pop", "Formats", "/help/formats_frame.html"], ["pop", "Gaps", "/help/gaps_frame.html"], ["pop", "Matrix", "/help/matrix_frame.html"], ["pop", "References", "/help/references_frame.html"] ]; sub bottom() { bottomNew(""); } sub bottomNew($) { my ($rightContents) = @_; return $Helper_extBot . $rightContents . $Helper_extBot2; } sub bot($) { my ($topMenuItem) = @_; if ($topMenuItem=~ m|^internal/|) { return $Helper_intBot; } else { return $Helper_extBot . $Helper_extBot2; } } sub getLeftMenuItems() { return $Helper_leftMenuItems; } sub getTopMenuItem(){ return $Helper_topMenuItem; } sub setLeftMenuItems($) { my ($menuItems) = @_; $Helper_leftMenuItems = $menuItems; } sub setTopMenuItem($){ my ($menuItem) = @_; $Helper_topMenuItem = $menuItem; } # add a custom last menu item to a copy of the services menu.
sub setServicesHelpMenuItemName ($) { my ($name) = @_; if (! $Helper_leftMenuItems) { for ( my $i = 0; $i<@{$Helper_extServicesHelpMenuItems}; $i++) { push @{$Helper_leftMenuItems}, @{$Helper_extServicesHelpMenuItems}[$i]; } push @{$Helper_leftMenuItems}, ["pop", "", ""]; } @{@{$Helper_leftMenuItems}[$#{$Helper_leftMenuItems}]}[2] = $name; } # add a custom last menu item to a copy of the services menu.
sub setServicesHelpMenuItemLink ($) { my ($link) = @_; if (! $Helper_leftMenuItems) { for ( my $i = 0; $i<@{$Helper_extServicesHelpMenuItems}; $i++) { push @{$Helper_leftMenuItems}, @{$Helper_extServicesHelpMenuItems}[$i]; } push @{$Helper_leftMenuItems}, ["pop", "", ""]; } @{@{$Helper_leftMenuItems}[$#{$Helper_leftMenuItems}]}[2] = $link; } # returns the bottom for an external page sub getBottom() { return bot($Helper_topMenuItem); } # return the bottom of the page that matches the top generated by this library sub getBot($) { my ($topMenuItem) = @_; return bot($topMenuItem); }; # In case you want to manipulate the serviceHelpMenuItems (i.e. to remove one of the items).
# This returns a copy of the array you can play with and pass as the leftMenuItems. sub getServicesHelpMenuItems () { return 0; } sub printBotNew($$$) { my ($out, $topMenuItem, $rightContents) = @_; if (! $out) { $out = \*STDOUT; } if ($topMenuItem=~ m|^internal/|) { print $out $Helper_intBot; } else { print $out $Helper_extBot; print $out $Helper_extBot2; } } sub printBottom ($) { my ($out) = @_; if (! $out) { $out = \*STDOUT; } print $out $Helper_extBot . $Helper_extBot2;; } sub printBot($$) { my ($out, $topMenuItem) = @_; my $tmp=""; printBotNew($out, $topMenuItem, $tmp) } # bean access to top of page. Call the set methods before this to alter the output. sub getTop() { return top($Helper_topMenuItem, $Helper_title, $Helper_pageTitle, $Helper_pageUrl, $Helper_firstWord, $Helper_lastWords, $Helper_loadMethods, $Helper_unLoadMethods, $Helper_headerScript, $Helper_leftMenuItems); } sub getTopNew() { return top($Helper_topMenuItem, $Helper_title, $Helper_pageTitle, $Helper_pageUrl, $Helper_firstWord, $Helper_lastWords, $Helper_loadMethods, $Helper_unLoadMethods, $Helper_headerScript, $Helper_leftMenuItems, $rightContents, $stretchy); } # Calls printTopWithMenu sub printTop ($$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript) = @_; printTopWithMenu($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, 0); } sub printTopNew ($$$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $rightContents, $stretchy) = @_; printTopWithMenuNew($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, 0, $rightContents, $stretchy); } sub printTopWithServicesHelpMenu ($$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $lastitem) = @_; my @lmi = (); for (my $i = 0; $i < @{$Helper_extServicesHelpMenuItems}; $i++) { push @lmi, @{$Helper_extServicesHelpMenuItems}[$i]; } push @lmi, $lastitem; printTopWithMenu($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, \@lmi); } sub printTopWithServicesHelpMenuNew ($$$$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $lastitem, $rightContents, $stretchy) = @_; my @lmi = (); for (my $i = 0; $i < @{$Helper_extServicesHelpMenuItems}; $i++) { push @lmi, @{$Helper_extServicesHelpMenuItems}[$i]; } push @lmi, $lastitem; printTopWithMenuNew($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, \@lmi, $rightContents, $stretchy); } # no menu required sub top ($$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript) = @_; return topWithMenu ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, 0); } sub topNew ($$$$$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $rightContents, $stretchy) = @_; return topWithMenuNew ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, 0, $rightContents, $stretchy); } sub topWithMenu ($$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; if ($topMenuItem && $topMenuItem=~ m|^internal/(.*)|) { my $menuitem2 = $1; return internalTopWithMenu ($menuitem2, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } else { return externalTopWithMenu ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } } sub topWithMenuNew ($$$$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy) = @_; if ($topMenuItem && $topMenuItem=~ m|^internal/(.*)|) { my $menuitem2 = $1; return internalTopWithMenu ($menuitem2, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } else { return externalTopWithMenuNew ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy); } } sub topWithServicesHelpMenu ($$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $lastitem) = @_; my @lmi = (); for (my $i = 0; $i<@{$Helper_extServicesHelpMenuItems}; $i++) { push @lmi, @{$Helper_extServicesHelpMenuItems}[$i]; } push @lmi, $lastitem; return topWithMenu($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, \@lmi); } sub topWithServicesHelpMenuNew ($$$$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $lastitem, $rightContents, $stretchy) = @_; my @lmi = (); for (my $i = 0; $i<@{$Helper_extServicesHelpMenuItems}; $i++) { push @lmi, @{$Helper_extServicesHelpMenuItems}[$i]; } push @lmi, $lastitem; return topWithMenuNew($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, \@lmi, $rightContents, $stretchy); } sub printTopWithMenu ($$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; if ($topMenuItem && $topMenuItem =~ m|^internal/(.*)|) { my $menuitem2 = $1; printInternalTopWithMenu ($out, $menuitem2, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } else { printExternalTopWithMenu($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } } sub printTopWithMenuNew ($$$$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy) = @_; if ($topMenuItem && $topMenuItem =~ m|^internal/(.*)|) { my $menuitem2 = $1; printInternalTopWithMenu ($out, $menuitem2, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems); } else { printExternalTopWithMenuNew($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy); } } sub printExternalTopWithMenu ($$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; printExternalTopWithMenuNew($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, "", "no") } sub externalTopWithMenu ($$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; externalTopWithMenuNew ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, "", ""); } sub buildicon($$$$$$){ my($icon_title, $icon_image_url, $icon_image_path, $icon_subtitle, $icon_text, $topMenuItem)=@_; my $topmenuindex = 0; for (my $i = 0; $i<@{$Helper_extTags}; $i++) { if(@{@{$Helper_extTags}[$i]}[0] eq $topMenuItem) { $topmenuindex = $i; last; } } $icon="
" . $icon_title . "

"; return $icon; } ########################adam.pl # #print ebi page top with menu sub printExternalTopWithMenuNew ($$$$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy) = @_; my $topmenuindex = 0; my @menuItem = ("", "", ""); my $contentWidth = 0; if (! $out) { $out = \*STDOUT; } for (my $i = 0; $i<@{$Helper_extTags}; $i++) { if(@{@{$Helper_extTags}[$i]}[0] eq $topMenuItem) { $topmenuindex = $i; last; } } print $out " "; if (! $title) { print $out "EBI Servlet\n"; } else { print $out "" . $title . " \n"; } if ($headerScript ) { print $out $headerScript; } print $out ""; print $out "\n\n"; # top of body is static... print $out "\n"; print $out "
\"spacer\""; if ($leftMenuItems) { print $out "
"; } else{ print $out "
"; } print $out " "; if ($leftMenuItems) { print $out "
    \n"; # Now for the menu... for (my $i=0; @{$leftMenuItems}[$i]; $i++) { if ((ref @{$leftMenuItems}[$i])) { $menuItem[0] = @{@{$leftMenuItems}[$i]}[0]; $menuItem[1] = @{@{$leftMenuItems}[$i]}[1]; $menuItem[2] = @{@{$leftMenuItems}[$i]}[2]; } else { if ($i+2 > @{$leftMenuItems}) { last; } $menuItem[0] = @{$leftMenuItems}[$i]; $menuItem[1] = @{$leftMenuItems}[$i+1]; $menuItem[2] = @{$leftMenuItems}[$i+2]; $i += 2; } last if (! $menuItem[0]); if ("image" eq $menuItem[0]) { print $out "
  • \"Image\"
    • \n"; } elsif ("link" eq $menuItem[0]) { print $out "
  • " . $menuItem[1] . "
    • \n"; } elsif ("pop" eq $menuItem[0]) { print $out "
  • " . $menuItem[1] . "
    • \n"; } elsif ("text" eq $menuItem[0]) { print $out "
  • "; print $out $menuItem[1] . "
    • \n"; } elsif ("free" eq $menuItem[0]) { print $out "
  • " . $menuItem[1] . "
    • "; } else { print $out "\n"; } } print $out "
"; print $out "
" . $rightContents; } else { } print $out " "; if ($leftMenuItems) { print $out ""; } print $out "\"spacer\"
 "; #remove headings if dont specify firstWord if ($firstWord) { print $out "

"; if ($firstWord ) { print $out $firstWord; } # $lastWords if ($lastWords ) { print $out $lastWords; } if ($firstWord ) { print $out "

"; } } } #########################ville.pl or index4b.pl sub externalTopWithMenuNew ($$$$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems, $rightContents, $stretchy) = @_; my $top = ""; my $topmenuindex = 0; my @menuItem = ("", "", ""); my $contentWidth = 0; for ( my $i = 0; $i<@{$Helper_extTags}; $i++) { if(@{@{$Helper_extTags}[$i]}[0] eq $topMenuItem) { $topmenuindex = $i; last; } } $top = $top . " "; if (! $title) { $top = $top . "EBI Servlet\n"; } else { $top = $top . "" . $title . "\n"; } if ($headerScript ) { $top = $top . $headerScript; } $top = $top . " "; $top = $top . "\n"; # $top of body is static... $top = $top . "\n"; $top = $top . "
\"spacer\""; if ($leftMenuItems ) { $top = $top . "
"; } else{ $top = $top . "
"; } $top = $top . " "; if ($leftMenuItems ) { $top = $top . "
    \n"; # Now for the menu... for (my $i = 0; @{$leftMenuItems}[$i]; $i++) { if ((ref @{$leftMenuItems}[$i])) { $menuItem[0] = @{@{$leftMenuItems}[$i]}[0]; $menuItem[1] = @{@{$leftMenuItems}[$i]}[1]; $menuItem[2] = @{@{$leftMenuItems}[$i]}[2]; } else { if ($i+2 > @{$leftMenuItems}) { last; } $menuItem[0] = @{$leftMenuItems}[$i]; $menuItem[1] = @{$leftMenuItems}[$i+1]; $menuItem[2] = @{$leftMenuItems}[$i+2]; $i += 2; } if ("image" eq $menuItem[0]) { $top = $top . "
  • \"Image\"
    • \n"; } elsif ("link" eq $menuItem[0]) { $top = $top . "
  • " . $menuItem[1] . "
    • \n"; } elsif ("pop" eq $menuItem[0]) { $top = $top . "
  • " . $menuItem[1] . "
    • \n"; } elsif ("text" eq $menuItem[0]) { $top = $top . "
  • " . $menuItem[1] . "
    • \n"; } elsif ("free" eq $menuItem[0]) { $top = $top . "
  • " . $menuItem[1] . "
    • \n"; } else { $top = $top . "\n"; } } $top = $top . "
"; $top = $top . "
" . $rightContents; } else { } $top = $top . " "; if ($leftMenuItems ) { $top = $top . ""; } $top = $top . "\"spacer\"
 "; if ($firstWord) { if ($firstWord ) { $top = $top . "

" . $firstWord; } if ($lastWords ) { $top = $top . $lastWords; } if ($firstWord ) { $top = $top . "

"; } } return $top; } #///////////////////THESE ARE NOT USUALLY USED ////////////////////////////////////////// sub printInternalTopWithMenu ($$$$$$$$$$$) { my ($out, $topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; if (!$out) { $out = \*STDOUT; } my $topmenuindex = 0; my @menuItem = (); my $contentWidth = 0; for (my $i = 0; $i<@{$Helper_intTags}; $i++) { if (@{@{$Helper_intTags}[$i]}[0] eq $topMenuItem) { $topmenuindex = $i; last; } } print $out "\n\n"; print $out "\n" . "\n" . "\n" . "\n" . "\n"; if ($headerScript ) { print $out $headerScript; } print $out ""; print $out "\n"; if (! $title) { print $out "EBI Servlet\n"; } else { print $out "" . $title . "\n"; } print $out "\n" . "\n" . "\n"; print $out $Helper_intBodyStart; # main navigation bar.. print $out "\n" . " \n"; for (my $i = 0; $i<@{$Helper_intTags}; $i++) { if ($i==$topmenuindex) { print $out " \n"; print $out " \n"; } else { if ($i==$topmenuindex . 1) { print $out " \n"; } else { print $out " \n"; } print $out " \n"; } } if ($topmenuindex==@{$Helper_intTags}) { print $out " \n"; } else { print $out " \n"; } print $out "\n" . "\n" ; print $out " \n"; for (my $i = 0; $i<@{$Helper_intTags}; $i++) { print $out " \n" . " \n"; } print $out ""; print $out ""; print $out ""; print $out ""; print $out "\n
\"Image\"" . @{@{$Helper_intTags}[$i]}[2] . "\"Image\"\"Image\"" . @{@{$Helper_intTags}[$i]}[2] . "\"Image\"\"Image\"\"Image\"
\"Image\"\"Image\"
\n"; print $out "\n" . " "; # left menu? if ($leftMenuItems ) { if (! $contentWidth) { $contentWidth = "560"; } print $out " \n" . " \n" . " \n" . " \n" . " \n" . " "; } else { if (!$contentWidth) { $contentWidth = "760"; } print $out " \n" . " \n" . ""; } print $out "
\"Image\"\"Image\"\"Image\"
\n" . " \n" . " \n" . "
\n"; for (my $i = 0; $i< @{$leftMenuItems}; $i++) { if (ref (@{$leftMenuItems}[0])) { $menuItem[0] = @{@{$leftMenuItems}[$i]}[0]; $menuItem[1] = @{@{$leftMenuItems}[$i]}[1]; $menuItem[2] = @{@{$leftMenuItems}[$i]}[2]; } else { if ($i+2 > @{$leftMenuItems}) { last; } $menuItem[0] = @{$leftMenuItems}[$i]; $menuItem[1] = @{$leftMenuItems}[$i+1]; $menuItem[2] = @{$leftMenuItems}[$i+2]; $i+=2; } if ("$title" eq $menuItem[0]) { print $out "
  • Quick Links
    • \n"; } elsif ("link" eq $menuItem[0] || "text" eq $menuItem[0]) { print $out "
  • "; if ($menuItem[2] ) { print $out "" . $menuItem[1] . ""; } else { print $out $menuItem[1]; } print $out "
    • \n"; } elsif ("image" eq $menuItem[0]) { if ($menuItem[2] ) { print $out "\"Image\"\"Image\""; } else { print $out "\"Image\""; } } elsif ("pop" eq $menuItem[0]) { print $out "
  • "; if ($menuItem[2] ) { print $out "" . $menuItem[1] . ""; } else { print $out $menuItem[1]; } print $out "
    • \n"; } } print $out "
    \n    		\"Image\"\"Image\"\n"; } # title that appears on the page immediately below the menuitem tabs
    # defaults to "EBI Servlet" sub getTitle(){ return $Helper_title; } sub setTitle($){ my ($title) = @_; $Helper_title = $title; } sub getPageTitle(){ return $Helper_pageTitle; } sub setPageTitle($){ my ($title) = @_; $Helper_pageTitle = $title; } # link to attach to title
    # defaults to 0 (no link generated) sub getPageUrl(){ return $Helper_pageUrl; } sub setPageUrl($){ my ($pageUrl) = @_; $Helper_pageUrl = $pageUrl; } # First word in main title of page
    # This word appears as white text on a green background
    # Defaults to "EBI" sub getFirstWord (){ return $Helper_firstWord; } sub setFirstWord($){ my ($firstWord) = @_; $Helper_firstWord = $firstWord; } # Remaining word(s) of page title
    # These word(s) appear as green text alongside firstWord
    # Defaults to "Servlet" sub getLastWords(){ return $Helper_lastWords; } sub setLastWords($){ my ($lastWords) = @_; $Helper_lastWords = $lastWords; } # javascript to call on loading the page
    # the surrounding html tags are generated - just javascript please! sub getLoadMethods (){ return $Helper_loadMethods; } sub setLoadMethods($){ my ($loadMethods) = @_; $Helper_loadMethods = $loadMethods; } # javascript to call on leaving the page
    # the surrounding html tags are generated - just javascript please!
    # Also note that it isn't good practice to annoy people with popups and such at this point! sub getUnLoadMethods() { return $Helper_unLoadMethods; } sub setUnLoadMethods($){ my ($unLoadMethods) = @_; $Helper_unLoadMethods = $unLoadMethods; } # embedded in page <head>
    # You need the appropriate tags (i.e. <script></script>) for this to work. sub getHeaderScript() { return $Helper_headerScript; } sub setHeaderScript($){ my ($headerScript) = @_; $Helper_headerScript = $headerScript; } sub internalTopWithMenu($$$$$$$$$$) { my ($topMenuItem, $title, $pageTitle, $pageUrl, $firstWord, $lastWords, $loadMethods, $unLoadMethods, $headerScript, $leftMenuItems) = @_; my $top = ""; my $topmenuindex = 0; my @menuItem = (); my $contentWidth = 0; for (my $i = 0; $i<@{$Helper_intTags}; $i++){ if (@{@{$Helper_intTags}[$i]}[0] eq $topMenuItem) { $topmenuindex = $i; last; } } $top = $top . "\n\n"; $top = $top . "\n" . "\n" . "\n" . "\n" . "\n"; if ($headerScript){ $top = $top . $headerScript; } $top = $top . ""; $top = $top . "\n"; if (!$title){ $top = $top . "EBI Servlet\n"; } else { $top = $top . "" . $title . "\n"; } $top = $top . "\n" . "\n" . "\n"; $top = $top . $Helper_intBodyStart; # main navigation bar.. $top = $top . "\n" . " \n"; for (my $i = 0; $i<@{$Helper_intTags}; $i++){ if ($i==$topmenuindex){ $top = $top . " \n"; $top = $top . " \n"; } else { if ($i==$topmenuindex . 1) { $top = $top . " \n"; } else { $top = $top . " \n"; } $top = $top . " \n"; } } if ($topmenuindex==@{$Helper_intTags}) { $top = $top . " \n"; } else { $top = $top . " \n"; } $top = $top . "\n" . "\n" ; $top = $top . " \n"; for(my $i = 0; $i<@{$Helper_intTags} . 1; $i++){ $top = $top . " \n" . " \n"; } $top = $top . "\n
    \"Image\"" . @{@{$Helper_intTags}[$i]}[2] . "\"Image\"\"Image\"" . @{@{$Helper_intTags}[$i]}[2] . "\"Image\"\"Image\"\"Image\"
    \"Image\"\"Image\"
    \n"; $top = $top . "\n" . " "; if ($leftMenuItems){ if (! $contentWidth){ $contentWidth = "560"; } $top = $top . " \n" . " \n" . " \n" . " \n" . " \n" . " "; } else { if (!$contentWidth) { $contentWidth = "779"; } $top = $top . " \n" . " \n" . ""; } $top = $top . "
    \"Image\"\"Image\"\"Image\"
    \n" . " \n" . " \n" . "
    "; for(my $i = 0; $i< @{$leftMenuItems}[$i]; $i++){ if ((ref @{$leftMenuItems}[$i])) { $menuItem[0] = @{@{$leftMenuItems}[$i]}[0]; $menuItem[1] = @{@{$leftMenuItems}[$i]}[1]; $menuItem[2] = @{@{$leftMenuItems}[$i]}[2]; } else { if($i+2 > @{$leftMenuItems}) { last; } $menuItem[0] = @{$leftMenuItems}[$i]; $menuItem[1] = @{$leftMenuItems}[$i+1]; $menuItem[2] = @{$leftMenuItems}[$i+2]; $i += 2; } if ("$title" eq $menuItem[0]) { $top = $top . "
  • Quick Links
    • \n"; } elsif ("link" eq $menuItem[0] || "text" eq $menuItem[0]) { $top = $top . "
  • "; if ($menuItem[2] ) { $top = $top . "" . $menuItem[1] . ""; } else { $top = $top . $menuItem[1]; } $top = $top . "
    • \n"; } elsif ("image" eq $menuItem[0]) { $top = $top . "
  • "; if ($menuItem[2] ) { $top = $top . "\"Image\""; } else { $top = $top . "\"Image\""; } $top = $top . "
    • \n"; } elsif ("pop" eq $menuItem[0]) { $top = $top . "
  • "; if ($menuItem[2] ) { $top = $top . "" . $menuItem[1] . ""; } else { $top = $top . $menuItem[1]; } $top = $top . "
    • \n"; } elsif ("free" eq $menuItem[0]) { $top = $top . $menuItem[1]; } else { $top = $top . "\n"; } } $top = $top . "
    \n    		\"Image\"\"Image\""; return $top; } #///////////////////THESE ARE NOT USED......//////////////////////////////////////////