[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.144, Fri Jul 29 21:27:33 2005 UTC revision 1.145, Mon Aug 1 18:52:58 2005 UTC
# Line 543  Line 543 
543          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");
544      }      }
545    
546        my($cid,@fams);
547        if (($cid = $fig_or_sprout->prot_to_cid($prot)) && (@fams = $fig_or_sprout->in_family($cid)) && (@fams > 0))
548        {
549            $link = $cgi->url();
550            $link =~ s/protein.cgi/proteinfamilies.cgi/;
551            $link = $link . "?prot=$prot";
552            push(@$html,"<a href=$link target=protein_families$$>To Compare Protein Families Containing this PEG</a>\n");
553        }
554    
555      if (! $sprout)      if (! $sprout)
556      {      {
557          my $fc = $cgi->param('fc');          my $fc = $cgi->param('fc');

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3