lib/CXGN/Cview/Legend/Genetic.pm

   1
   2 use strict;
   3
   4 package CXGN::Cview::Legend::Genetic;
   5
   6 use CXGN::Cview::Legend;
   7
   8 use base qw | CXGN::Cview::Legend | ;
   9
  10 =head2 new
  11
  12  Usage:
  13  Desc:
  14  Ret:
  15  Args:
  16  Side Effects:
  17  Example:
  18
  19 =cut
  20
  21 sub new {
  22     my $class = shift;
  23     my $self = $class->SUPER::new(@_);
  24
  25     return $self;
  26
  27 }
  28
  29 =head2 function get_legend_html()
  30
  31   Synopsis:
  32   Parameters:   none
  33   Returns:      a string containing html code for the marker color legend
  34   Side effects: none
  35   Status:       implemented
  36   Example:
  37
  38 =cut
  39
  40 sub get_legend_html {
  41     my $self= shift;
  42     my $string = "<table border = \"0\" cellspacing=\"0\" cellpadding=\"0\" ><tr valign=\"middle\"><td>";
  43
  44     my $state = $self->get_state_hashref();
  45
  46     my $link = "view_chromosome.pl?map_version_id=$state->{map_version_id}&amp;chr_nr=$state->{chr_nr}&amp;show_physical=$state->{show_physical}&amp;show_IL=$state->{show_IL}&amp;show_offsets=$state->{show_offsets}&amp;show_ruler=$state->{show_ruler}&amp;color_model=$state->{color_model}&amp;comp_map_version_id=$state->{comp_map_version_id}&amp;comp_chr=$state->{comp_chr}&amp;show_zoomed=$state->{show_zoomed}&amp;size=$state->{size}&amp;cM=$state->{cM}&amp;cM_start=$state->{cM_start}&amp;cM_end=$state->{cM_end}&amp;hilite=$self->{hilite}&amp;zoom=$state->{zoom}";
  47     if ($self->get_mode() eq "marker_types") {
  48         $string .= "<b>Marker color by type:</b>
  49                    <a href=\"$link\&marker_type=RFLP\" style=\"color:#FF0000\">RFLP</a> |
  50                    <a href=\"$link\&marker_type=SSR\" style=\"color:#00FF00\">SSR</a> |
  51                    <a href=\"$link\&marker_type=CAPS\" style=\"color:#0000FF\">CAPS</a> |
  52                    <a href=\"$link\&marker_type=COS\" style=\"color:#FF00FF\">COS</a> |
  53                    <font color=#000000>other</font>
  54                            [<a href=\"$link\&marker_type=\" style=\"color:#111111\">show all</a>]";
  55
  56     }
  57     else {
  58         $string .= "<b>Marker color by LOD score:</b>
  59                    <a href=\"$link\&amp;confidence=3\" style=\"color:#FF0000\">F(LOD3)</a> |
  60                    <a href=\"$link\&amp;confidence=2\" style=\"color:#00FF00\">CF(LOD>=3</a> |
  61                    <a href=\"$link\&amp;confidence=1\" style=\"color:#0000FF\">I(LOD2)</a> |
  62                    <a href=\"$link\&amp;confidence=0\" style=\"color:#000000\">I(LOD&lt;2)</a> |
  63                    <a href=\"$link\&amp;confidence=-2\" style=\"color:#777777\">uncalculated</a>  ";
  64     }
  65
  66
  67     my $toggle_color_model = "";
  68     my $toggle_color_button = "";
  69     if ($self->get_mode() eq "marker_types") {
  70         $toggle_color_model="";
  71         $toggle_color_button = "Color LOD scores";
  72     }
  73
  74     else {
  75         $toggle_color_model="marker_types";
  76         $toggle_color_button = "Color marker types";
  77     }
  78
  79     my $color_toggle_button = CXGN::Cview::Chromosome_view::toolbar_button -> new($toggle_color_button, $state);
  80     $color_toggle_button -> set_property("color_model", $toggle_color_model);
  81     my $color_toggle_html = $color_toggle_button -> render_string();
  82
  83     $string .= "</td><td>".$color_toggle_html;
  84
  85     $string .= "</td></tr></table>";
  86     return $string;
  87 }
  88
  89
  90
  91 return 1;