[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.170, Mon Dec 5 19:12:12 2005 UTC revision 1.171, Tue Dec 20 17:59:09 2005 UTC
# Line 146  Line 146 
146          elsif ($request eq "dna_sequence")           { &dna_sequence($fig_or_sprout,$cgi,$html,$prot); }          elsif ($request eq "dna_sequence")           { &dna_sequence($fig_or_sprout,$cgi,$html,$prot); }
147          elsif ($request eq "fast_assign")            { $html = &make_assignment($fig_or_sprout,$cgi,$html,$prot); }          elsif ($request eq "fast_assign")            { $html = &make_assignment($fig_or_sprout,$cgi,$html,$prot); }
148          elsif ($request eq "show_coupling_evidence") { &show_coupling_evidence($fig_or_sprout,$cgi,$html,$prot); }          elsif ($request eq "show_coupling_evidence") { &show_coupling_evidence($fig_or_sprout,$cgi,$html,$prot); }
149            elsif ($request eq "abstract_coupling")      { &show_abstract_coupling_evidence($fig_or_sprout,$cgi,$html,$prot); }
150          elsif ($request eq "ec_to_maps")             { &show_ec_to_maps($fig_or_sprout,$cgi,$html); }          elsif ($request eq "ec_to_maps")             { &show_ec_to_maps($fig_or_sprout,$cgi,$html); }
151          elsif ($request eq "link_to_map")            { &link_to_map($fig_or_sprout,$cgi,$html); }          elsif ($request eq "link_to_map")            { &link_to_map($fig_or_sprout,$cgi,$html); }
152          elsif ($request eq "fusions")                { &show_fusions($fig_or_sprout,$cgi,$html,$prot); }          elsif ($request eq "fusions")                { &show_fusions($fig_or_sprout,$cgi,$html,$prot); }
# Line 278  Line 279 
279  #  show_coupling_evidence  #  show_coupling_evidence
280  #==============================================================================  #==============================================================================
281    
282    sub show_abstract_coupling_evidence {
283        my($fig_or_sprout,$cgi,$html,$prot) = @_;
284    
285        my @coupling = $fig_or_sprout->abstract_coupled_to($prot);
286        if (@coupling > 0)
287        {
288            push(@$html,&HTML::abstract_coupling_table($cgi,\@coupling));
289        }
290        else
291        {
292            push(@$html,$cgi->h1("sorry, no abstract coupling data for $prot"));
293        }
294    }
295    
296  sub show_coupling_evidence {  sub show_coupling_evidence {
297      my($fig_or_sprout,$cgi,$html,$peg) = @_;      my($fig_or_sprout,$cgi,$html,$peg) = @_;
298      my($pair,$peg1,$peg2,$link1,$link2);      my($pair,$peg1,$peg2,$link1,$link2);
# Line 616  Line 631 
631    
632          my $link = &cgi_url . "/homologs_in_clusters.cgi?prot=$peg&user=$user\n";          my $link = &cgi_url . "/homologs_in_clusters.cgi?prot=$peg&user=$user\n";
633          push(@$html,"<br><a href=$link>To Find Homologs in Clusters</a>\n");          push(@$html,"<br><a href=$link>To Find Homologs in Clusters</a>\n");
634    
635            my @coup = $fig_or_sprout->abstract_coupled_to($peg);
636            if (@coup > 0)
637            {
638                my $link = &cgi_url . "/protein.cgi?prot=$peg&user=$user&request=abstract_coupling\n";
639                push(@$html,"<br><a href=$link>Show Abstract Clustering Data</a>\n");
640            }
641      }      }
642    
643      if ((! $cgi->param('compare_region')) && $has_translation) {      if ((! $cgi->param('compare_region')) && $has_translation) {

Legend:
Removed from v.1.170  
changed lines
  Added in v.1.171

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3