[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.32, Sun Jan 30 17:16:57 2005 UTC revision 1.33, Sun Jan 30 18:18:46 2005 UTC
# Line 1283  Line 1283 
1283                  $cell_data .= join(", ",map { ($cgi->param('ext_ids') ? &external_id($fig,$cgi,$_->[0]) : &HTML::fid_link($cgi,$_->[0],"local")) . $_->[1] } @$cell);                  $cell_data .= join(", ",map { ($cgi->param('ext_ids') ? &external_id($fig,$cgi,$_->[0]) : &HTML::fid_link($cgi,$_->[0],"local")) . $_->[1] } @$cell);
1284                  if ($superscript)                  if ($superscript)
1285                  {                  {
1286                   $cell_data .= " &nbsp; <sup>" . (join ", ", map {$superscript->{$_->[0]}} @$cell) . "</sup>";                   # flatten this
1287                     my %sscript;
1288                     foreach my $cv (@$cell) {
1289                      next unless ($superscript->{$cv->[0]});
1290                      $sscript{$superscript->{$cv->[0]}}=1;
1291                  }                  }
1292                     $cell_data .= " &nbsp; <sup> " . (join ", ", keys %sscript) . " </sup> ";
1293                    }
1294                    if (!$cell_data || $cell_data eq '<td bgcolor="#FFFFFF"></td>') {$cell_data = '<td bgcolor="#FFFFFF"> &nbsp; </td>'}
1295                  push(@$row, $cell_data);                  push(@$row, $cell_data);
1296                  #push(@$row,"\@bgcolor=\"$color\":" . join(", ",map { ($cgi->param('ext_ids') ? &external_id($fig,$cgi,$_->[0]) : &HTML::fid_link($cgi,$_->[0],"local")) . $_->[1] } @$cell));                  #push(@$row,"\@bgcolor=\"$color\":" . join(", ",map { ($cgi->param('ext_ids') ? &external_id($fig,$cgi,$_->[0]) : &HTML::fid_link($cgi,$_->[0],"local")) . $_->[1] } @$cell));
1297              }              }
# Line 1468  Line 1475 
1475   # color will be related to the number somehow   # color will be related to the number somehow
1476   # url will be the url for each number   # url will be the url for each number
1477   my $number; my $url;   my $number; my $url;
1478   my $count=1;   my $count=0;
1479   #count has to be the highest number if we increment it   #count has to be the highest number if we increment it
1480   foreach my $t (keys %$tagvalcolor) {   foreach my $t (keys %$tagvalcolor) {($tagvalcolor->{$t} > $count) ? $count=$tagvalcolor->{$t} : 1}
1481    ($t > $count) ? $count=$t : 1;   $count++; # this should now be the next number to assign
   }  
1482   foreach my $peg (@$pegs) {   foreach my $peg (@$pegs) {
1483    next unless (my @attr=$fig->feature_attributes($peg));    next unless (my @attr=$fig->feature_attributes($peg));
1484    foreach my $attr (@attr) {    foreach my $attr (@attr) {

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3