[Bio] / FigKernelPackages / gjoalign2html.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/gjoalign2html.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Apr 9 21:00:24 2007 UTC revision 1.3, Thu Jun 25 01:19:29 2009 UTC
# Line 454  Line 454 
454      }      }
455    
456      my @color_align = ();      my @color_align = ();
457      my ( $id, $def, $seq, $i );      my ( $id, $def, $seq );
458      foreach ( @$align, [ 'Consen1', 'Primary consensus',   $cons1 ],      foreach ( @$align, [ 'Consen1', 'Primary consensus',   $cons1 ],
459                         [ 'Consen2', 'Secondary consensus', $cons2 ]                         [ 'Consen2', 'Secondary consensus', $cons2 ]
460              )              )
# Line 826  Line 826 
826      my $nojavascript = $options{ nojavascript } || ( $tooltip ? 0 : 1 );      my $nojavascript = $options{ nojavascript } || ( $tooltip ? 0 : 1 );
827    
828      my @html;      my @html;
829      push @html, "<TABLE Col=3>\n";      push @html, "<TABLE Col=5 CellPadding=0 CellSpacing=0>\n";
830      foreach ( @$align )      foreach ( @$align )
831      {      {
832          if ( $tooltip )          if ( $tooltip )
# Line 852  Line 852 
852    
853          push @html, "  <TR>\n",          push @html, "  <TR>\n",
854                      "    <TD NoWrap>$_->[0]</TD>\n",                      "    <TD NoWrap>$_->[0]</TD>\n",
855                        "    <TD NoWrap>&nbsp;</TD>\n",  # Getting rid of padding, so ...
856                      "    <TD NoWrap>$_->[1]</TD>\n",                      "    <TD NoWrap>$_->[1]</TD>\n",
857                      "    <TD><Pre><Big>",                      "    <TD NoWrap>&nbsp;</TD>\n",  # Getting rid of padding, so ...
858                        "    <TD NoWrap>&nbsp;</TD>\n",
859                        "    <TD><TT><Big>",
860                               ( $tooltip ? $tiplink : () ),                               ( $tooltip ? $tiplink : () ),
861                               sequence_2_html( $_->[2] ),                               sequence_2_html( $_->[2] ),
862                               ( $tooltip ? '</A>' : () ),                               ( $tooltip ? '</A>' : () ),
863                               "</Big></Pre></TD>\n",                               "</Big></TT></TD>\n",
864                      "  </TR>\n";                      "  </TR>\n";
865      }      }
866      push @html, "</TABLE>\n";      push @html, "</TABLE>\n";
# Line 865  Line 868 
868      my $legend = $options{ key } || $options{ legend };      my $legend = $options{ key } || $options{ legend };
869      if ( ref( $legend ) eq 'ARRAY' )      if ( ref( $legend ) eq 'ARRAY' )
870      {      {
871          push @html, "<BR />\n", "<TABLE Col=1>\n";          push @html, "<BR />\n", "<TABLE Col=1 CellPadding=0 CellSpacing=0>\n";
872          foreach ( @$legend )          foreach ( @$legend )
873          {          {
874              push @html, "  <TR><TD><Pre><Big>",              push @html, "  <TR><TD><TT><Big>",
875                             sequence_2_html( $_ ),                             sequence_2_html( $_ ),
876                             "</Big></Pre></TD></TR>\n";                             "</Big></TT></TD></TR>\n";
877          }          }
878          push @html, "</TABLE>\n";          push @html, "</TABLE>\n";
879      }      }
# Line 901  Line 904 
904      {      {
905          $txt = html_esc( $_->[0] );          $txt = html_esc( $_->[0] );
906          $txt or next;          $txt or next;
907            $txt =~ s/ /&nbsp;/g; # 2009-03-02 -- Change from <Pre> to <TT> wrapper
908          $clr = $_->[1];          $clr = $_->[1];
909          push @html, ( $clr ? qq(<span style="background-color:$clr">$txt</span>)          push @html, ( $clr ? qq(<span style="background-color:$clr">$txt</span>)
910                             : $txt                             : $txt
# Line 1231  Line 1235 
1235      $menu =~ s/'/\\'/g;    # escape '      $menu =~ s/'/\\'/g;    # escape '
1236      $menu =~ s/"/&quot;/g; # escape "      $menu =~ s/"/&quot;/g; # escape "
1237    
1238        $parent     = '' if ! defined $parent;
1239        $titlecolor = '' if ! defined $titlecolor;
1240        $bodycolor  = '' if ! defined $bodycolor;
1241    
1242      qq( onMouseover="javascript:if(!this.tooltip) this.tooltip=new Popup_Tooltip(this,'$title','$text','$menu','$parent','$titlecolor','$bodycolor');this.tooltip.addHandler(); return false;" );      qq( onMouseover="javascript:if(!this.tooltip) this.tooltip=new Popup_Tooltip(this,'$title','$text','$menu','$parent','$titlecolor','$bodycolor');this.tooltip.addHandler(); return false;" );
1243  }  }
1244    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3