mason/help/toolbar.mas

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