[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.124, Wed Jun 29 00:06:24 2005 UTC revision 1.125, Wed Jun 29 00:28:01 2005 UTC
# Line 381  Line 381 
381    
382          &print_assignments($fig_or_sprout,$cgi,$html->{assign_for_equiv_prots},$peg);          &print_assignments($fig_or_sprout,$cgi,$html->{assign_for_equiv_prots},$peg);
383          &print_kv_pairs($is_sprout, $fig_or_sprout,$cgi,$html->{kv_pairs},$peg);          &print_kv_pairs($is_sprout, $fig_or_sprout,$cgi,$html->{kv_pairs},$peg);
384            &print_protein_fams($is_sprout, $fig_or_sprout,$cgi,$html->{kv_pairs},$peg,$user);
385          &print_subsys_connections($fig_or_sprout,$cgi,$html->{subsys_connections},$peg,$user);          &print_subsys_connections($fig_or_sprout,$cgi,$html->{subsys_connections},$peg,$user);
386          &print_links($fig_or_sprout,$cgi,$html->{links},$peg);          &print_links($fig_or_sprout,$cgi,$html->{links},$peg);
387    
# Line 405  Line 406 
406      # generate the link to turn tools on or off      # generate the link to turn tools on or off
407      my $toollink=$cgi->self_url;      my $toollink=$cgi->self_url;
408      $toollink =~ s/[\&\;]fulltools.*[^\;\&]/\&/;      $toollink =~ s/[\&\;]fulltools.*[^\;\&]/\&/;
409      my $fulltoolbutton  = $cgi->a({href=> $toollink . "&fulltools='1'"}, "Show tool descriptions"); # define this here before we mess with ourself!      my $fulltoolbutton  = $cgi->a({href=> $toollink . "&fulltools='1'"}, "> Show tool descriptions"); # define this here before we mess with ourself!
410      my $brieftoolbutton = $cgi->a({href=> $toollink}, "Hide tool descriptions");      my $brieftoolbutton = $cgi->a({href=> $toollink}, "< Hide tool descriptions");
411    
412      $cgi->param(-name => "request",      $cgi->param(-name => "request",
413                  -value => "use_protein_tool");                  -value => "use_protein_tool");
# Line 705  Line 706 
706      push( @$html, $cgi->end_form );      push( @$html, $cgi->end_form );
707  }  }
708    
709    sub print_protein_fams {
710        my($is_sprout, $fig_or_sprout,$cgi,$html,$peg,$user) = @_;
711    
712        # we don't want to do this for SPROUT
713        return if ($is_sprout);
714    
715        # generate the link to turn protein fams on or off
716        my $link=$cgi->self_url;
717        if ($link =~ /showproteinfams/) {
718         $link =~ s/[\&\;]showproteinfams.*[^\;\&]/\&/;
719         push @$html, "< &nbsp; " . $cgi->a({href=> $link}, "Hide Protein Families");
720    
721         # get the families and other information
722         my $tab=[];
723         my @families=&families_for_protein($fig_or_sprout,$peg);
724         return unless (scalar @families);
725         foreach my $fam (@families)
726         {
727          my $link="<a href='/FIG/proteinfamilies.cgi?user=$user&prot=$peg&family=$fam&filter=fig&simpleshow=1'>$fam</a>";
728          push @$tab, [$link, &family_function($fig_or_sprout, $fam), &sz_family($fig_or_sprout, $fam)];
729         }
730         my $col_hdrs=["Family ID<br><small>Link Investigates Family</small>", "Family Function", "Family Size"];
731         push @$html, $cgi->br, &HTML::make_table($col_hdrs, $tab, "Protein Families"), $cgi->hr;
732        }
733        else
734        {
735         push @$html, "> &nbsp; " . $cgi->a({href=> $link . "&showproteinfams='1'"}, "Show Protein Families"); # define this here before we mess with ourself!
736        }
737    }
738    
739  sub who {  sub who {
740      my($id) = @_;      my($id) = @_;
741    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3