[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.2, Sat Oct 23 21:28:54 2004 UTC revision 1.3, Sat Oct 23 21:41:38 2004 UTC
# Line 49  Line 49 
49      exit;      exit;
50  }  }
51    
52  my $gs = $fig->genus_species($genome);  my $request = $cgi->param('request');
53  push(@$html,$cgi->h1("Statistics for $genome: $gs"));  if (! $request)
54    {
55        &basic_stats($fig,$cgi,$html,$genome);
56    }
57    else
58    {
59        push(@$html,$cgi->h1("Invalid request: $request"));
60    }
61    
62  &HTML::show_page($cgi,$html);  &HTML::show_page($cgi,$html);
63  exit;  exit;
64    
65    sub basic_stats {
66        my($fig,$cgi,$html,$genome) = @_;
67    
68        my $rdbH = $fig->db_handle;
69        my $relational_db_response = $rdbH->SQL("SELECT gname,szdna,pegs,rnas,taxonomy FROM genome WHERE genome = '$genome'");
70        my($gname,$szdna,$pegs,$rnas,$taxonomy) = @{$relational_db_response->[0]};
71        push(@$html,$cgi->h1('Basic Statistics'));
72        push(@$html,$cgi->br,
73                    "Name: $gname",$cgi->br,
74                    "Size (bp): $szdna",$cgi->br,
75                    "Number CDSs: $pegs",$cgi->br,
76                    "Number rnas: $rnas",$cgi->br,
77                    "Taxonomy: $taxonomy",$cgi->br
78             );
79        return
80    }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3