[Bio] / FigWebServices / heat_map.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/heat_map.cgi

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

revision 1.8, Mon Jun 19 03:56:38 2006 UTC revision 1.9, Mon Jun 19 05:41:50 2006 UTC
# Line 326  Line 326 
326          }          }
327      }      }
328      my $hdrs=["UP IN", map {$fig->genus_species($_)."<br />($_)\n"} @genomes];      my $hdrs=["UP IN", map {$fig->genus_species($_)."<br />($_)\n"} @genomes];
329        map {$_=[$_, "th class=\"bordered\""]} @$hdrs;
330      my $tab=[]; my $texttab=[]; # texttab is for the excel file and doesn't have links      my $tab=[]; my $texttab=[]; # texttab is for the excel file and doesn't have links
331      foreach my $i (0 .. $#genomes)      foreach my $i (0 .. $#genomes)
332      {      {
333          my $hrow=[$fig->genus_species($genomes[$i]) . "($_)"];          my $hrow=[[$fig->genus_species($genomes[$i]) . "($genomes[$i])", "th class=\"bordered\""]];
334          my $trow=[$fig->genus_species($genomes[$i]) . "($_)"]; # t is text for excel          my $trow=[$fig->genus_species($genomes[$i]) . "($genomes[$i])"]; # t is text for excel
335          foreach my $j (0 .. $#genomes)          foreach my $j (0 .. $#genomes)
336          {          {
337              #$matches=join("<br />\n", map {&HTML::sub_link($cgi, $_)} @{$xipe->{$genomes[$i]}->{$genomes[$j]}});              #$matches=join("<br />\n", map {&HTML::sub_link($cgi, $_)} @{$xipe->{$genomes[$i]}->{$genomes[$j]}});
# Line 340  Line 341 
341                  $hmatches=join("", map {$_->[0]} @{$xipe->{$genomes[$i]}->{$genomes[$j]}}); # this is the html version for web                  $hmatches=join("", map {$_->[0]} @{$xipe->{$genomes[$i]}->{$genomes[$j]}}); # this is the html version for web
342                  $tmatches=join("", map {$_->[1]} @{$xipe->{$genomes[$i]}->{$genomes[$j]}}); # this is the text version for excel                  $tmatches=join("", map {$_->[1]} @{$xipe->{$genomes[$i]}->{$genomes[$j]}}); # this is the text version for excel
343              }              }
344              push @$hrow, $hmatches;              push @$hrow, [$hmatches, "td class=\"bordered\""];
345              push @$trow, $tmatches;              push @$trow, $tmatches;
346          }          }
347          push @$tab, $hrow;          push @$tab, $hrow;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3