cgi-bin/help/toolbar.pl

   1 use strict;
   2 use CXGN::Page;
   3 use CXGN::Page::Toolbar::SGN;
   4 my $page=CXGN::Page->new('SGN navigation toolbar help','john');
   5 $page->header('SGN navigation toolbar help','Toolbar help');
   6 print<<END_HEREDOC;
   7 The toolbar is located on the upper portion of the screen on almost
   8 every page on the SGN site and provides an easy way to navigate the
   9 site. The toolbar consists of the SGN logo and a row of links that link
  10 to the main portions of the site. When the mouse passes over a link, a
  11 pull down menu is displayed (assuming you have JavaScript turned on).
  12 You can either click the main link or scroll down the menu to choose a
  13 menu item. If you are having problems with the toolbar, you may want to
  14 bookmark this page, and use it instead.
  15 <br /><br />
  16 END_HEREDOC
  17 my $tb=CXGN::Page::Toolbar::SGN->new();
  18 for my $heading($tb->headings())
  19 {
  20     my $heading_link=$tb->heading_link($heading);
  21     my $heading_desc=$tb->heading_desc($heading);
  22     print"<b><a href=\"$heading_link\">$heading</a></b> - $heading_desc<br />\n";
  23     print"<ul style=\"list-style-type: none;\">\n";
  24     for my $menu_option($tb->menu_options($heading))
  25     {
  26         my $option_link=$tb->option_link($heading,$menu_option);
  27         my $option_desc=$tb->option_desc($heading,$menu_option);
  28         print"<li><a href=\"$option_link\">$menu_option</a> - $option_desc<br /></li>\n";
  29     }
  30     print"</ul>\n";
  31 }
  32 $page->footer();