[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.127, Wed Jun 29 14:48:27 2005 UTC revision 1.128, Fri Jul 1 02:09:16 2005 UTC
# Line 717  Line 717 
717      # we don't want to do this for SPROUT      # we don't want to do this for SPROUT
718      return if ($is_sprout);      return if ($is_sprout);
719    
     push @$html, "<a href=\"javascript:toggleLayer('proteinfamilies');\" title=\"Show Protein Families\">Show/Hide Protein Families</a>";  
720    
721      # get the families and other information      # get the families and other information
722      my $tab=[];      my $tab=[];
723      my @families=&families_for_protein($fig_or_sprout,$peg);      my @families=&families_for_protein($fig_or_sprout,$peg);
724      return unless (scalar @families);      unless (scalar @families) {
725         push @$html, "No protein families found\n";
726         return;
727        }
728        push @$html, "<a href=\"javascript:toggleLayer('proteinfamilies');\" title=\"Show Protein Families\">Show/Hide Protein Families</a>";
729      foreach my $fam (@families)      foreach my $fam (@families)
730      {      {
731       my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&prot=$peg&family=$fam&filter=fig&simpleshow=1'>$fam</a>";       my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";
732       push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];       push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];
733      }      }
734      my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];      my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];
# Line 757  Line 760 
760       return unless (scalar @families);       return unless (scalar @families);
761       foreach my $fam (@families)       foreach my $fam (@families)
762       {       {
763        my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&prot=$peg&family=$fam&filter=fig&simpleshow=1'>$fam</a>";        my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&family=$fam'>$fam</a>";
764        push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];        push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];
765       }       }
766       my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];       my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3