[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.65, Thu Apr 7 04:27:01 2005 UTC revision 1.66, Thu Apr 7 19:16:10 2005 UTC
# Line 1386  Line 1386 
1386                 # get the value                 # get the value
1387                 my $ga=$cgi->param('color_by_ga');                 my $ga=$cgi->param('color_by_ga');
1388                 my $valuetype=$fig->guess_value_format($ga);                 my $valuetype=$fig->guess_value_format($ga);
1389                 my ($value, $url)=$fig->get_attributes($genome, $ga);                 my @array=$fig->get_attributes($genome, $ga);
1390                   next unless ($array[0]);
1391                   # for the purposes of this page, we are going to color on the
1392                   # value of the last attribute
1393                   my ($value, $url)=@{$array[0]};
1394                 if (defined $value) # we don't want to color undefined values                 if (defined $value) # we don't want to color undefined values
1395                 {                 {
1396                    my @color=&cool_colors();                    my @color=&cool_colors();
# Line 1449  Line 1453 
1453                   my %sscript;                   my %sscript;
1454                   foreach my $cv (@$cell) {                   foreach my $cv (@$cell) {
1455                    next unless ($superscript->{$cv->[0]});                    next unless ($superscript->{$cv->[0]});
1456                    $sscript{$superscript->{$cv->[0]}}=1;                    my %flatten;
1457                      foreach my $value (@{$superscript->{$cv->[0]}}) {$flatten{$value}=1}
1458                      $sscript{join ",", sort {$a <=> $b} keys %flatten}=1;
1459                   }                   }
1460                   if (scalar keys %sscript) {$cell_data .= " &nbsp; <sup> [" . (join ", ", keys %sscript) . "] </sup> "}                   if (scalar keys %sscript) {$cell_data .= " &nbsp; <sup> [" . (join ", ", keys %sscript) . "] </sup> "}
1461                  }                  }
# Line 1654  Line 1660 
1660     next unless ($tag eq $want);     next unless ($tag eq $want);
1661     if ($tagvalcolor->{$val}) {     if ($tagvalcolor->{$val}) {
1662      $number->{$peg}=$tagvalcolor->{$val};      $number->{$peg}=$tagvalcolor->{$val};
1663      $url->{$peg}="<a href='$link'>" . $number->{$peg} . "</a>";      push (@{$url->{$peg}}, "<a href='$link'>" . $number->{$peg} . "</a>");
1664     }     }
1665     else {     else {
1666      $number->{$peg}=$tagvalcolor->{$val}=$count++;      $number->{$peg}=$tagvalcolor->{$val}=$count++;
1667      $url->{$peg}="<a href='$link'>" . $number->{$peg} . "</a>";      push (@{$url->{$peg}}, "<a href='$link'>" . $number->{$peg} . "</a>");
1668     }     }
1669      #### This is a botch at the moment. I want PIRSF to go to my page that I am working on, not PIR      #### This is a botch at the moment. I want PIRSF to go to my page that I am working on, not PIR
1670      #### so I am just correcting those. This is not good, and I should change the urls in the tag/value pairs or something      #### so I am just correcting those. This is not good, and I should change the urls in the tag/value pairs or something
1671      if ($want eq "PIRSF") {      if ($want eq "PIRSF") {
1672         pop @{$url->{$peg}};
1673       $val =~ /(^PIRSF\d+)/;       $val =~ /(^PIRSF\d+)/;
1674       $url->{$peg} = $cgi->a({href => "pir.cgi?&user=$user&pirsf=$1"}, $number->{$peg});       push (@{$url->{$peg}}, $cgi->a({href => "pir.cgi?&user=$user&pirsf=$1"}, $number->{$peg}));
1675      }      }
1676    }    }
1677   }   }

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3