[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.145, Mon Aug 1 18:52:58 2005 UTC revision 1.146, Tue Aug 16 19:40:15 2005 UTC
# Line 355  Line 355 
355      }      }
356    
357      if ($loc = &feature_locationS($fig_or_sprout,$peg)) {      if ($loc = &feature_locationS($fig_or_sprout,$peg)) {
358            if ($loc =~ /^(\d+\.\d+:(\S+)) \2$/)
359            {
360                #
361                # REMOVE ME.
362                #
363                #  Patch a sprout bug that returns spurious gunk in feature locations.
364                #
365    
366                $loc = $1;
367            }
368    
369          my($contig,$beg,$end) = &boundaries_of($fig_or_sprout,$loc);          my($contig,$beg,$end) = &boundaries_of($fig_or_sprout,$loc);
370    
371          my $len  = abs($end-$beg) + 1;          my $len  = abs($end-$beg) + 1;
# Line 543  Line 554 
554          push(@$html,"<a href=$link target=checked_window>To Make an Annotation</a>\n");          push(@$html,"<a href=$link target=checked_window>To Make an Annotation</a>\n");
555      }      }
556    
557        if (! $sprout)
558        {
559      my($cid,@fams);      my($cid,@fams);
560      if (($cid = $fig_or_sprout->prot_to_cid($prot)) && (@fams = $fig_or_sprout->in_family($cid)) && (@fams > 0))      if (($cid = $fig_or_sprout->prot_to_cid($prot)) && (@fams = $fig_or_sprout->in_family($cid)) && (@fams > 0))
561      {      {
# Line 552  Line 565 
565          push(@$html,"<a href=$link target=protein_families$$>To Compare Protein Families Containing this PEG</a>\n");          push(@$html,"<a href=$link target=protein_families$$>To Compare Protein Families Containing this PEG</a>\n");
566      }      }
567    
     if (! $sprout)  
     {  
568          my $fc = $cgi->param('fc');          my $fc = $cgi->param('fc');
569          if ((! $fc) && (&feature_locationS($fig_or_sprout,$peg))) {          if ((! $fc) && (&feature_locationS($fig_or_sprout,$peg))) {
570              my $link = $cgi->self_url() . "&fc=1";              my $link = $cgi->self_url() . "&fc=1";
# Line 774  Line 785 
785    
786      for my $prop (@props)      for my $prop (@props)
787      {      {
788          my($name, $value, $evidence) = @$prop;          my($fid, $name, $value, $evidence) = @$prop;
789          my $txt;          my $txt;
790          if ($evidence =~ /^http/)          if ($evidence =~ /^http/)
791          {          {

Legend:
Removed from v.1.145  
changed lines
  Added in v.1.146

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3