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

Diff of /FigWebServices/subsys.cgi

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

revision 1.105, Wed Aug 3 21:16:40 2005 UTC revision 1.106, Thu Aug 4 19:53:23 2005 UTC
# Line 1665  Line 1665 
1665                 {                 {
1666                    my @color=&cool_colors();                    my @color=&cool_colors();
1667                    my $colval; # what we are basing the color on.                    my $colval; # what we are basing the color on.
1668                    if ($valuetype->[0] eq "string") {$colval=$value} # strings are easy, we color based on string;                    if ($valuetype->[0] eq "float")
1669                    else {                    {
1670                      # Initially spllit numbers into groups of 10.                      # Initially spllit numbers into groups of 10.
1671                      # $valuetype->[2] is the maximum number for this value                      # $valuetype->[2] is the maximum number for this value
1672                      # but I don't like this                      # but I don't like this
# Line 1679  Line 1679 
1679                       if ($value >= $i && $value < $i+$max/10) {$colval = $i . "-" . ($i+($max/10))}                       if ($value >= $i && $value < $i+$max/10) {$colval = $i . "-" . ($i+($max/10))}
1680                      }                      }
1681                    }                    }
1682                      else {$colval=$value}
1683    
1684                    if (!$tagvalcolor->{$colval}) {                    if (!$tagvalcolor->{$colval}) {
1685                      # figure out the highest number used in the array                      # figure out the highest number used in the array
# Line 1688  Line 1689 
1689                      }                      }
1690                      $tagvalcolor->{$colval}++;                      $tagvalcolor->{$colval}++;
1691                    }                    }
   
1692                    # RAE Add a column for the description                    # RAE Add a column for the description
1693                    splice @$row, 3, 0, $colval;                    splice @$row, 3, 0, $colval;
1694    

Legend:
Removed from v.1.105  
changed lines
  Added in v.1.106

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3