[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.2, Thu Jun 29 15:36:01 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 90  Line 91 
91      my %position;      my %position;
92      foreach my $fn (sort {$function{$b} <=> $function{$a}} keys %function) {$position{$fn}=$cnt++}      foreach my $fn (sort {$function{$b} <=> $function{$a}} keys %function) {$position{$fn}=$cnt++}
93      my @colors= UnvSubsys::cool_colors();      my @colors= UnvSubsys::cool_colors();
94        my %genomect;
95    
96      foreach my $peg (@inc)      foreach my $peg (sort {$fig->genome_of($a) cmp $fig->genome_of($b)} @inc)
97      {      {
98            $genomect{$fig->genome_of($peg)}++;
99          my $user_entry = &HTML::fid_link( $cgi, $peg );          my $user_entry = &HTML::fid_link( $cgi, $peg );
100          if ($user)          if ($user)
101          {          {
# Line 120  Line 123 
123          }          }
124          my $ev = join("<br>", &evidence_codes($fig, $peg));          my $ev = join("<br>", &evidence_codes($fig, $peg));
125    
126            my $genomelabel = $fig->genus_species($fig->genome_of($peg)) . " (".$fig->genome_of($peg).")";
127            my $abbr=$cgi->a({id=>"genome", onMouseover=>"javascript:if(!this.tooltip) this.tooltip=new Popup_Tooltip(this, 'Genome', '$genomelabel', ''); this.tooltip.addHandler(); return false;"}, $fig->abbrev($fig->genus_species($fig->genome_of($peg))));
128    
129          my $row=[          my $row=[
130              $keep,              $keep,
131              $fig->abbrev($fig->genus_species($fig->genome_of($peg))),              $abbr,
132                $genomect{$fig->genome_of($peg)},
133              $user_entry,              $user_entry,
134              $in_sub,              $in_sub,
135              $ev,              $ev,
# Line 157  Line 163 
163    
164    
165    
166      my $col_hdrs=["Set", "Organism", "PEG", "SS", "EV", "Len", "Function"];      my $col_hdrs=["Set", "Organism", "Occ", "PEG", "SS", "EV", "Len", "Function"];
167      push( @$html, &HTML::make_table( $col_hdrs, $tab, "Description By Set" ) );      push( @$html, &HTML::make_table( $col_hdrs, $tab, "Description By Set" ) );
168    
169      if ($user)      if ($user)
# Line 170  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.2  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3