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

Diff of /FigWebServices/close_genome_discrepancies.cgi

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

revision 1.4, Thu Jun 29 18:00:55 2006 UTC revision 1.5, Thu Jun 29 18:52:57 2006 UTC
# Line 65  Line 65 
65    
66    
67  my $last_peg;  my $last_peg;
68    my $pegct; my $pegsofar;
69  foreach my $peg (sort {$fig->feature_location($a) cmp $fig->feature_location($b)} $fig->pegs_of($key_org))  foreach my $peg (sort {$fig->feature_location($a) cmp $fig->feature_location($b)} $fig->pegs_of($key_org))
70  {  {
71        $pegct++;
72      my $tab;      my $tab;
73      ($peg eq $first_peg) ? ($keep=1) : 1;      ($peg eq $first_peg) ? ($keep=1) : 1;
74      next unless ($keep);      next unless ($keep);
75      $last_peg=$peg;      $last_peg=$peg;
76      last if ($keep > $max);      next if ($keep > $max);
77        $pegsofar++;
78      my $fn=$fig->function_of($peg, $user);      my $fn=$fig->function_of($peg, $user);
79      my @inc=($peg);      my @inc=($peg);
80      my %function;      my %function;
# Line 180  Line 183 
183    
184    
185  my $link=$cgi->url."?user=$user&max=$max&maxN=$maxN&maxP=$maxP&key_org=$key_org&first_peg=$last_peg&korgs=".(join("&korgs=", @orgs));  my $link=$cgi->url."?user=$user&max=$max&maxN=$maxN&maxP=$maxP&key_org=$key_org&first_peg=$last_peg&korgs=".(join("&korgs=", @orgs));
186  splice(@$html, 1, 0, $cgi->p("<a href='$link'>Next $max pegs</a>"));  my $percent=int(($pegsofar/$pegct) * 1000)/10;
187    splice(@$html, 1, 0, $cgi->p("<a href='$link'>Next $max pegs</a>"), $cgi->h4("Walked $pegsofar of $pegct pegs ($percent \%)"));
188    
189    
190  push @$html, $cgi->p("<a href='$link'>Next $max pegs</a><hr>\n");  push @$html, $cgi->p("<a href='$link'>Next $max pegs</a><hr>\n");

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3