[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.6, Thu Jun 29 19:08:12 2006 UTC revision 1.7, Thu Jun 29 22:43:41 2006 UTC
# Line 55  Line 55 
55  my $max       = $cgi->param('max');  my $max       = $cgi->param('max');
56    
57  unless ($key_org) {$key_org=$orgs[0]}  unless ($key_org) {$key_org=$orgs[0]}
58  unless ($maxN) {$maxN=10}  unless ($maxN) {$maxN=50}
59  unless ($maxP) {$maxP=1e-20}  unless ($maxP) {$maxP=1e-20}
60  unless ($max) {$max=10}  unless ($max) {$max=10}
61    
# Line 71  Line 71 
71      $pegct++;      $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);      unless ($keep) {$pegsofar++; next}
75      next if ($keep > $max);      next if ($keep > $max);
76      $last_peg=$peg;      $last_peg=$peg;
77      $pegsofar++;      $pegsofar++;
# Line 180  Line 180 
180  }  }
181    
182    
183    # set the new first peg
184    $cgi->param('first_peg', $last_peg);
185    
186    
187  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));
# Line 198  Line 200 
200                      "<br />\nChange to: &nbsp; " , $cgi->popup_menu(-name=>"key_org", -values=>[keys %organisms], -labels=>\%organisms, -default=>$key_org),                      "<br />\nChange to: &nbsp; " , $cgi->popup_menu(-name=>"key_org", -values=>[keys %organisms], -labels=>\%organisms, -default=>$key_org),
201                      "<br />\nmaxN: " , $cgi->textfield(-name=>"maxN", -default=>$maxN, -size=>6),                      "<br />\nmaxN: " , $cgi->textfield(-name=>"maxN", -default=>$maxN, -size=>6),
202                      "<br />\nmaxP: " , $cgi->textfield(-name=>"maxP", -default=>$maxP, -size=>6),                      "<br />\nmaxP: " , $cgi->textfield(-name=>"maxP", -default=>$maxP, -size=>6),
203                      "<br />\nfirst peg: " , $cgi->textfield(-name=>"first_peg", -value=>$last_peg, -size=>20),                      "<br />\nfirst peg: " , $cgi->textfield(-name=>"first_peg", -default=>$last_peg, -size=>20),
204                      "<br />\nNumber of pegs to show: " , $cgi->textfield(-name=>"max", -default=>$max, -size=>6),                      "<br />\nNumber of pegs to show: " , $cgi->textfield(-name=>"max", -default=>$max, -size=>6),
205                      "<br />\n" , $cgi->submit, $cgi->reset,                      "<br />\n" , $cgi->submit, $cgi->reset,
206                      ),                      ),

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3