[Bio] / FigWebServices / figfam_proto.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/figfam_proto.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Thu Feb 22 20:45:16 2007 UTC revision 1.2, Thu Feb 22 23:06:08 2007 UTC
# Line 1  Line 1 
1  # -*- perl -*-  # -*- perl -*-
2    
3  use FIG;  use FIG;
4    use FigFam;
5  use FIG_Config;  use FIG_Config;
6  use HTML;  use HTML;
7  use CGI;  use CGI;
# Line 60  Line 61 
61    
62      my $sops = $cgi->param('set_of_pegs');      my $sops = $cgi->param('set_of_pegs');
63      my $figfam_id = $cgi->param('figfam_id');      my $figfam_id = $cgi->param('figfam_id');
64      my @set,$count,%domain;      my $figfam = FigFam->new($fig,$figfam_id);
65        my $count;
66        my %domain;
67    
68      if($figfam_id){      if($figfam_id){
69          @set = $fig->proteins_in_family($figfam_id);          my $set = $figfam->pegs_of();
70          $count = scalar(@set);          $count = scalar(@$set);
71          foreach $peg(@set){          my $found = 0;
72              $returns = $fig->get_attributes($peg);          foreach my $peg (@$set){
73              foreach $return (@$returns){              #if($found){last;}
74                  if(@$return[1] =~/CDD::(\d+)/){              if($peg =~/fig\|/){
75                      $id = $1;                  my @returns = $fig->get_attributes($peg,'CDD');
76                    foreach $return (@returns){
77                        if(@$return[1] =~/(\d+)/){
78                            my $id = $1;
79                      if($domain{$id}){$domain{$id} = $domain{$id} + 1;}                      if($domain{$id}){$domain{$id} = $domain{$id} + 1;}
80                      else{$domain{$id} = 1;}                          else{
81                                $domain{$id} = 1;
82                                $found = 1;
83                            }
84                            last;
85                        }
86                  }                  }
87              }              }
88          }          }
# Line 82  Line 93 
93          "<table>";          "<table>";
94          foreach $dom (keys(%domain)){          foreach $dom (keys(%domain)){
95              $instances = $domain{$dom};              $instances = $domain{$dom};
96              push @html,"<tr><td>$dom</td><td>$instances</td></tr>";              push @$html,"<tr><td>$dom</td><td>$instances</td></tr>";
97          }          }
98          push @$html,          push @$html,"</table>";
         "</table>";  
99    
100          &HTML::show_page($cgi,$html,1);          &HTML::show_page($cgi,$html,1);
101          exit;          exit;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3