lib/CXGN/Cview/Legend/Physical.pm

   1
   2 use strict;
   3
   4 package CXGN::Cview::Legend::Physical;
   5
   6 use CXGN::Cview::Legend;
   7
   8 use base qw | CXGN::Cview::Legend |;
   9
  10
  11 sub get_legend_html {
  12     my $self = shift;
  13
  14     my $s = "<table><tr>";
  15     $s.= qq { <td><b>Anchoring color legend:<b>&nbsp;</td> };
  16     $s.= qq { <td><font style="background-color:#00FF00">&nbsp;&nbsp;</font></td><td>sequenced&nbsp;</td> };
  17     $s.= qq { <td><font style="background-color:#0000FF">&nbsp;&nbsp;</font></td><td>in progress&nbsp;</td> };
  18     $s.= qq { <td><font style="background-color:#772222">&nbsp;&nbsp;</font></td><td>computational&nbsp;</td> };
  19     $s.= qq { <td><font style="background-color:#AAAA00">&nbsp;&nbsp;</font></td><td>experimental&nbsp;</td> };
  20     $s.= qq { <td><font style="background-color:#AAAAAA">&nbsp;&nbsp;</font></td><td>overgo&nbsp;</td> };
  21     $s.= qq { <td><font style="background-color:#22AAAA">&nbsp;&nbsp;</font></td><td>S. pennellii BAC&nbsp;</td> };
  22     $s.="</tr></table>";
  23
  24     return $s;
  25 }
  26
  27
  28
  29 return 1;
  30