[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.134, Thu Jan 5 01:15:50 2006 UTC revision 1.135, Sun Jan 8 21:34:55 2006 UTC
# Line 29  Line 29 
29  use tree_utilities;  use tree_utilities;
30    
31  use CGI;  use CGI;
32    use CGI::Carp qw(fatalsToBrowser); # this makes debugging a lot easier by throwing errors out to the browser
33    
34  my $cgi = new CGI;  my $cgi = new CGI;
35    
# Line 2086  Line 2087 
2087                  }                  }
2088    
2089                  #  Otherwise, write pegs into a subtable with one cell per color.                  #  Otherwise, write pegs into a subtable with one cell per color.
2090                    # RAE: used style for this rather than a separate table per cell. All the small tables are crap
2091                    # for rendering, especially if you have a lot of pegs in a ss
2092    
2093                  else                  elsif(0)
2094                  {                  {
2095                        # original way
2096                      $cell_data = '<table><tr valign=bottom>'                      $cell_data = '<table><tr valign=bottom>'
2097                                 . join( '', map { ( $color, $txt ) = @$_ ; qq(<td bgcolor="$color">$txt</td>) } @str_by_color )                                 . join( '', map { ( $color, $txt ) = @$_ ; qq(<td bgcolor="$color">$txt</td>) } @str_by_color )
2098                                 . ( $sscript ? "<td>$sscript</td>" : '' )                                 . ( $sscript ? "<td>$sscript</td>" : '' )
2099                                 . '</tr></table>';                                 . '</tr></table>';
2100                  }                  }
2101    
2102                    else
2103                    {
2104                        $cell_data = join( '', map { ( $color, $txt ) = @$_ ; qq(<span style="background-color: $color">$txt</span>) } @str_by_color )
2105                                    . ( $sscript ? $sscript : '' );
2106                    }
2107    
2108    
2109    
2110                  #  Push the cell data onto the row:                  #  Push the cell data onto the row:
2111    
2112                  push(@$row, $cell_data);                  push(@$row, $cell_data);

Legend:
Removed from v.1.134  
changed lines
  Added in v.1.135

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3