[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.9, Sat Jan 31 17:06:07 2004 UTC revision 1.10, Sat Feb 7 17:41:30 2004 UTC
# Line 1  Line 1 
   
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
# Line 209  Line 208 
208      my $loc;      my $loc;
209    
210      my $half_sz = 5000;      my $half_sz = 5000;
211        my $fc = $cgi->param('fc');
212        my @fc_data;
213        if ($fc)
214        {
215            @fc_data = $fig->coupling_and_evidence($peg,5000,1.0e-20,0.5,"keep");
216        }
217        else
218        {
219            @fc_data = ();
220        }
221    
222      if ($loc = $fig->feature_location($peg))      if ($loc = $fig->feature_location($peg))
223      {      {
# Line 245  Line 254 
254          push(@$html,"<br><a href=$link target=checked_window>To Make an Annotation</a>\n");          push(@$html,"<br><a href=$link target=checked_window>To Make an Annotation</a>\n");
255      }      }
256    
     my $fc = $cgi->param('fc');  
257      if ((! $fc) && ($fig->feature_location($peg)))      if ((! $fc) && ($fig->feature_location($peg)))
258      {      {
259          my $link = $cgi->self_url() . "&fc=1";          my $link = $cgi->self_url() . "&fc=1";
# Line 253  Line 261 
261      }      }
262      elsif ($fc)      elsif ($fc)
263      {      {
264          &print_fc($fig,$cgi,$html,$peg);          &print_fc($fig,$cgi,$html,$peg,\@fc_data);
265      }      }
266    
267      my $link = $cgi->self_url() . "&request=fusions";      my $link = $cgi->self_url() . "&request=fusions";
# Line 319  Line 327 
327  ################# Functional Coupling  ############################  ################# Functional Coupling  ############################
328    
329  sub print_fc {  sub print_fc {
330      my($fig,$cgi,$html,$peg) = @_;      my($fig,$cgi,$html,$peg,$fc_data) = @_;
331      my($sc,$neigh);      my($sc,$neigh);
332    
333      my $user  = $cgi->param('user');      my $user  = $cgi->param('user');
334      my @tab   = map { ($sc,$neigh) = @$_;      my @tab   = map { ($sc,$neigh) = @$_;
335                        [&ev_link($cgi,$neigh,$sc),$neigh,scalar $fig->function_of($neigh,$user)]                        [&ev_link($cgi,$neigh,$sc),$neigh,scalar $fig->function_of($neigh,$user)]
336                      }                      }
337                  $fig->coupling_and_evidence($peg,5000,1.0e-20,0.5,"keep");                      @$fc_data;
338      if (@tab > 0)      if (@tab > 0)
339      {      {
340          push(@$html,"<hr>\n");          push(@$html,"<hr>\n");

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3