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

Diff of /FigWebServices/protein.cgi

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

revision 1.120, Fri Jun 24 21:21:42 2005 UTC revision 1.121, Mon Jun 27 20:00:55 2005 UTC
# Line 463  Line 463 
463      my($cgi,$neigh,$sc) = @_;      my($cgi,$neigh,$sc) = @_;
464    
465      my $prot = $cgi->param('prot');      my $prot = $cgi->param('prot');
466      my $link = $cgi->url() . "?request=show_coupling_evidence&prot=$prot&to=$neigh";      my $sprout = $cgi->param('SPROUT');
467        my $link = $cgi->url() . "?request=show_coupling_evidence&prot=$prot&to=$neigh&SPROUT=$sprout";
468      return "<a href=$link>$sc</a>";      return "<a href=$link>$sc</a>";
469  }  }
470    
# Line 2493  Line 2494 
2494      }      }
2495      return map { @{ $sims{$_} } } @genomes;      return map { @{ $sims{$_} } } @genomes;
2496  }  }
2497    
2498    sub in_cluster_with {
2499        my($fig_or_sprout,$cgi,$peg) = @_;
2500        my %in_cluster;
2501    
2502        if ($fig_or_sprout->table_exists('fc_pegs') && $fig_or_sprout->is_complete(&FIG::genome_of($peg)))
2503        {
2504            %in_cluster = map { $_->[0] => &ev_link($cgi,$_->[0],$_->[1]) } $fig_or_sprout->coupled_to($peg);
2505            if (keys(%in_cluster) > 0)
2506            {
2507                $in_cluster{$peg} = "";
2508            }
2509            elsif ($cgi->param('fc'))
2510            {
2511                %in_cluster = map { $_ => "" } $fig_or_sprout->in_cluster_with($peg);
2512            }
2513        }
2514        return \%in_cluster;
2515    }
2516    

Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3