[Bio] / FigWebServices / WebApplicationComponents / Menu.pm Repository:
ViewVC logotype

View of /FigWebServices/WebApplicationComponents/Menu.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Mon Feb 27 17:59:59 2006 UTC (14 years, 1 month ago) by paczian
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2008_06_18, myrast_rel40, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07
Changes since 1.2: +8 -8 lines
*** empty log message ***

package Menu;

1;

sub new {
  my ($class, $params) = @_;

  # retrieve params from param hash
  my @items = @{$params->{items}};
  my @links = @{$params->{links}};
  my $targets  = $params->{targets}  || {};
  my $selected = $params->{selected} || -1;
  my $id       = $params->{id}       || "menu";
  my $title    = $params->{title}    || "title";
  my $class    = $params->{class}    || "";

  # initialize menu string
  my $menu = "<div id='" . $id  ."' class='" . $class . "'><table class='div_box'>";

  # create menu title
  $menu .= qq~<tr><td id="~ . $id . qq~_add" class="hideme" onclick="add_element('~ . $id . qq~')">+</td><td id="~ . $id . qq~_clear" class="div_clear" onclick="change_element('~ . $id . qq~');"><li></td><td id="~ . $id . qq~_title" class="div_title_blue">~ . $title . qq~</td><td id="~ . $id . qq~_remove" class="hideme" onclick="remove_element('~ . $id . qq~')">x</td></tr><tr><td colspan=3 id="~ . $id . qq~_content" class="showme"><table style="width: 100%; background-color: white;">~;

  # fill in menu points
  my $curr = 0;
  foreach my $item (@items) {
    my $class_name = "menu_item";
    if ($curr == $selected) {
      $class_name = "menu_selected";
    }

    my $target = "";
    if (exists($targets->{$items[$curr]})) {
      $target = " target=_blank";
    }

    $menu .= "<tr><td><a href='" . $links[$curr] . "' class='" . $class_name . "' style='width: 190px;'" . $target . ">" . $items[$curr] . "</a></td></tr>";
    $curr++;
  }
  
  # close surrounding table and div
  $menu .= "</table></td></tr></table></div>";

  return $menu;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3