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

Diff of /FigWebServices/proteinfamilies.cgi

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

revision 1.41, Wed Dec 21 23:51:50 2005 UTC revision 1.42, Mon Jan 2 23:58:49 2006 UTC
# Line 843  Line 843 
843      my $need=$cgi->param("statistics");      my $need=$cgi->param("statistics");
844      (lc($need) eq "all") ? eval{@sources=sort {$a cmp $b} keys %$sources} : eval{@sources=grep {/$need/i} sort {$a cmp $b} keys %$sources};      (lc($need) eq "all") ? eval{@sources=sort {$a cmp $b} keys %$sources} : eval{@sources=grep {/$need/i} sort {$a cmp $b} keys %$sources};
845    
846      my $tab; my $time;      my $tab;
847      my $totalprots=$fig->number_of_cids();      my $totalprots=$fig->number_of_cids();
848      foreach my $s (@sources)      foreach my $s (@sources)
849      {      {
      $time=time;  
850       my $numberoffams=$fig->number_of_families($s);       my $numberoffams=$fig->number_of_families($s);
851       my $numberofprots=$fig->number_of_proteins_in_families($s);       my $numberofprots=$fig->number_of_proteins_in_families($s);
852       my $numberofuniqueprots=$fig->number_of_proteins_in_families($s, 1);       my $numberofuniqueprots=$fig->number_of_proteins_in_families($s, 1);
# Line 859  Line 858 
858              &commify($numberofuniqueprots),              &commify($numberofuniqueprots),
859              int($numberofprots/$numberoffams * 10)/10,              int($numberofprots/$numberoffams * 10)/10,
860              int($numberofuniqueprots/$totalprots * 1000)/1000,              int($numberofuniqueprots/$totalprots * 1000)/1000,
             time-$time,  
861          ];          ];
862       }       }
 #            $fig->number_of_proteins_in_families($s),  
863    
864      my $headers=["Source", "Number of families", "Total number<br />of proteins<br />in families", "Number of unique<br />protein ids<br />in families", "Proteins per family", "Fraction", "Time taken"];      my $headers=["Source", "Number of families", "Total number<br />of proteins<br />in families", "Number of unique<br />protein ids<br />in families", "Proteins per family", "Fraction"];
865    
866      push @$html,      push @$html,
867          $cgi->h2("Protein Family Statistics"),          $cgi->h2("Protein Family Statistics"),

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3