[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.29, Sun Sep 18 14:11:22 2005 UTC revision 1.30, Mon Oct 10 19:28:45 2005 UTC
# Line 193  Line 193 
193          elsif ((! $is_hypo) && $in{$peg})       { $nothypo_sub++ }          elsif ((! $is_hypo) && $in{$peg})       { $nothypo_sub++ }
194      }      }
195      my $tot = $hypo_sub + $nothypo_sub + $hypo_nosub + $nothypo_nosub;      my $tot = $hypo_sub + $nothypo_sub + $hypo_nosub + $nothypo_nosub;
196    
197        my ($fracHS, $fracNHS, $fracHNS, $fracNHNS);
198    
199        if ($tot == 0) {
200            my $fracHS = sprintf "%4.2f", 0.0;
201            my $fracNHS = sprintf "%4.2f", 0.0;
202            my $fracHNS = sprintf "%4.2f", 0.0;
203            my $fracNHNS = sprintf "%4.2f", 0.0;
204        } else {
205      my $fracHS = sprintf "%4.2f", $hypo_sub / $tot;      my $fracHS = sprintf "%4.2f", $hypo_sub / $tot;
206      my $fracNHS = sprintf "%4.2f", $nothypo_sub / $tot;      my $fracNHS = sprintf "%4.2f", $nothypo_sub / $tot;
207      my $fracHNS = sprintf "%4.2f", $hypo_nosub / $tot;      my $fracHNS = sprintf "%4.2f", $hypo_nosub / $tot;
208      my $fracNHNS = sprintf "%4.2f", $nothypo_nosub / $tot;      my $fracNHNS = sprintf "%4.2f", $nothypo_nosub / $tot;
209        }
210    
211      my $user = $cgi->param('user');      my $user = $cgi->param('user');
212    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3