[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.4, Tue Jun 6 06:53:54 2006 UTC revision 1.5, Tue Jun 6 15:28:09 2006 UTC
# Line 118  Line 118 
118          $attr->[2] =~ /^(.*):(([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)/;          $attr->[2] =~ /^(.*):(([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)/;
119          my ($ss, $score)=($1, $2);          my ($ss, $score)=($1, $2);
120          unless ($ss && defined $score) {die "Can't parse a ss and a score from ".(join("\n", @$attr))}          unless ($ss && defined $score) {die "Can't parse a ss and a score from ".(join("\n", @$attr))}
         ($score > $max) ? ($max=$score) : 1;  
121          unless (defined $scores->{$ss}) {$#{$scores->{$ss}}=$#genomes}          unless (defined $scores->{$ss}) {$#{$scores->{$ss}}=$#genomes}
122          $scores->{$ss}->[$i]=$score;          $scores->{$ss}->[$i]=$score;
123      }      }
# Line 137  Line 136 
136          !$cgi->param('limit')          !$cgi->param('limit')
137        )        )
138      {      {
139            foreach my $sc (@{$scores->{$ss}}) {($sc > $max) ? ($max=$sc) : 1}
140          push @data, [@class, $ss, @{$scores->{$ss}}];          push @data, [@class, $ss, @{$scores->{$ss}}];
141      }      }
142  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3