[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.125, Wed Jun 29 00:28:01 2005 UTC revision 1.126, Wed Jun 29 04:33:02 2005 UTC
# Line 707  Line 707 
707  }  }
708    
709  sub print_protein_fams {  sub print_protein_fams {
710    
711        ############## RAE
712        # This code adds the protein family table to the page. This can be shown/hidden at the discretion of the viewer. Hopefully.
713        # On testing, this doesn't appear to work with safari, though it may be that I don't know what I am doing, so I have
714        # reverted to the old code below.
715    
716        my($is_sprout, $fig_or_sprout,$cgi,$html,$peg,$user) = @_;
717        # we don't want to do this for SPROUT
718        return if ($is_sprout);
719    
720        push @$html, "<a href=\"javascript:toggleLayer('proteinfamilies');\" title=\"Show Protein Families\">Show/Hide Protein Families</a>";
721    
722        # get the families and other information
723        my $tab=[];
724        my @families=&families_for_protein($fig_or_sprout,$peg);
725        return unless (scalar @families);
726        foreach my $fam (@families)
727        {
728         my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&prot=$peg&family=$fam&filter=fig&simpleshow=1'>$fam</a>";
729         push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];
730        }
731        my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];
732        push @$html, $cgi->br, $cgi->div({id=>"proteinfamilies"}, &HTML::make_table($col_hdrs, $tab, "Protein Families"));
733    }
734    
735    
736    sub old_print_protein_fams {
737    
738        ############## RAE
739        # This is functional code that displays the protein families, but I want to try it using
740        # the CSS method. Therefore, I am keeping this code just for now, rather than munging it and being
741        # stuck with nothing working. Just rename this method and it will be fine!
742    
743      my($is_sprout, $fig_or_sprout,$cgi,$html,$peg,$user) = @_;      my($is_sprout, $fig_or_sprout,$cgi,$html,$peg,$user) = @_;
744    
745      # we don't want to do this for SPROUT      # we don't want to do this for SPROUT

Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3