[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.3, Thu Jun 29 16:17:42 2006 UTC revision 1.4, Thu Jun 29 18:00:55 2006 UTC
# Line 60  Line 60 
60  unless ($max) {$max=10}  unless ($max) {$max=10}
61    
62  my $keep=0;  my $keep=0;
63    undef $first_peg unless ($key_org eq $fig->genome_of($first_peg));
64  unless ($first_peg) {$keep=1}  unless ($first_peg) {$keep=1}
65    
66    
# Line 175  Line 176 
176    
177  }  }
178    
179    
180    
181    
182  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));
183  splice(@$html, 1, 0, $cgi->p("<a href='$link'>Next $max pegs</a>"));  splice(@$html, 1, 0, $cgi->p("<a href='$link'>Next $max pegs</a>"));
184    
185    
186  push @$html, $cgi->p("<a href='$link'>Next $max pegs</a>");  push @$html, $cgi->p("<a href='$link'>Next $max pegs</a><hr>\n");
187    my %organisms=map {($_ => $fig->genus_species($_). " ($_)")} @orgs;
188    push @$html, (
189                    $cgi->start_form(),
190                    $cgi->hidden(-name=>"user"),
191                    $cgi->hidden(-name=>"korgs"),
192                    $cgi->ul(
193                        "<br />\n<h2>Currently walking along " , $fig->genus_species($key_org), "</h2>",
194                        "<br />\nChange to: &nbsp; " , $cgi->popup_menu(-name=>"key_org", -values=>[keys %organisms], -labels=>\%organisms, -default=>$key_org),
195                        "<br />\nmaxN: " , $cgi->textfield(-name=>"maxN", -default=>$maxN, -size=>6),
196                        "<br />\nmaxP: " , $cgi->textfield(-name=>"maxP", -default=>$maxP, -size=>6),
197                        "<br />\nfirst peg: " , $cgi->textfield(-name=>"first_peg", -value=>$last_peg, -size=>20),
198                        "<br />\nNumber of pegs to show: " , $cgi->textfield(-name=>"max", -default=>$max, -size=>6),
199                        "<br />\n" , $cgi->submit, $cgi->reset,
200                        ),
201                    $cgi->end_form,
202                );
203  &HTML::show_page($cgi, $html);  &HTML::show_page($cgi, $html);
204    
205    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3