[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.66, Thu Apr 7 19:16:10 2005 UTC revision 1.67, Fri Apr 8 20:22:23 2005 UTC
# Line 1390  Line 1390 
1390                 next unless ($array[0]);                 next unless ($array[0]);
1391                 # for the purposes of this page, we are going to color on the                 # for the purposes of this page, we are going to color on the
1392                 # value of the last attribute                 # value of the last attribute
1393                 my ($value, $url)=@{$array[0]};                 my ($gotpeg, $gottag, $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 1656  Line 1656 
1656    next unless (my @attr=$fig->get_attributes($peg));    next unless (my @attr=$fig->get_attributes($peg));
1657    foreach my $attr (@attr) {    foreach my $attr (@attr) {
1658     next unless (defined $attr);     next unless (defined $attr);
1659     my ($tag, $val, $link)=@$attr;     my ($gotpeg, $tag, $val, $link)=@$attr;
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};

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3