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

Diff of /FigWebServices/genome_statistics.cgi

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

revision 1.13, Fri Apr 8 20:22:23 2005 UTC revision 1.14, Wed Apr 13 15:37:30 2005 UTC
# Line 64  Line 64 
64          push(@$html,$cgi->hr);          push(@$html,$cgi->hr);
65          &assignment_stats($fig,$cgi,$html,$genome);          &assignment_stats($fig,$cgi,$html,$genome);
66          push(@$html,$cgi->hr);          push(@$html,$cgi->hr);
67            &kv_peg_stats($fig, $cgi, $html, $genome);
68            push(@$html,$cgi->hr);
69          &kv_stats($fig, $cgi, $html, $genome);          &kv_stats($fig, $cgi, $html, $genome);
70          my $user = $cgi->param('user');          my $user = $cgi->param('user');
71          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_subsystems&user=$user>Show Subsystems</a>");          push(@$html,"<a href=./genome_statistics.cgi?genome=$genome&request=show_subsystems&user=$user>Show Subsystems</a>");
# Line 358  Line 360 
360    
361  }  }
362    
363    sub kv_peg_stats {
364     my ($fig, $cgi, $html, $genome)=@_;
365    
366     #RAE Added the coverage of each genome with different attributes for the PEGs to find the number of genes that are in pirsf, etc
367     push(@$html, "\n<div class=\"pegattributes\">\n<p><h2>PEG Attributes for ", $fig->genus_species($genome), "</h2></p>\n");
368    
369     my $pegtags=$fig->get_tags('peg');
370     foreach my $type (sort {$a cmp $b} keys %$pegtags)
371     {
372       push(@$html, "\nPEGS with tag:  $type  :  ", scalar(@{$pegtags->{$type}}), $cgi->br, "\n");
373     }
374    }
375    
376  sub kv_stats {  sub kv_stats {
377   my ($fig, $cgi, $html, $genome, $edit)=@_;   my ($fig, $cgi, $html, $genome, $edit)=@_;
378    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3