[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.3, Thu Jun 29 16:17:42 2006 UTC
# Line 90  Line 90 
90      my %position;      my %position;
91      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++}
92      my @colors= UnvSubsys::cool_colors();      my @colors= UnvSubsys::cool_colors();
93        my %genomect;
94    
95      foreach my $peg (@inc)      foreach my $peg (sort {$fig->genome_of($a) cmp $fig->genome_of($b)} @inc)
96      {      {
97            $genomect{$fig->genome_of($peg)}++;
98          my $user_entry = &HTML::fid_link( $cgi, $peg );          my $user_entry = &HTML::fid_link( $cgi, $peg );
99          if ($user)          if ($user)
100          {          {
# Line 120  Line 122 
122          }          }
123          my $ev = join("<br>", &evidence_codes($fig, $peg));          my $ev = join("<br>", &evidence_codes($fig, $peg));
124    
125            my $genomelabel = $fig->genus_species($fig->genome_of($peg)) . " (".$fig->genome_of($peg).")";
126            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))));
127    
128          my $row=[          my $row=[
129              $keep,              $keep,
130              $fig->abbrev($fig->genus_species($fig->genome_of($peg))),              $abbr,
131                $genomect{$fig->genome_of($peg)},
132              $user_entry,              $user_entry,
133              $in_sub,              $in_sub,
134              $ev,              $ev,
# Line 157  Line 162 
162    
163    
164    
165      my $col_hdrs=["Set", "Organism", "PEG", "SS", "EV", "Len", "Function"];      my $col_hdrs=["Set", "Organism", "Occ", "PEG", "SS", "EV", "Len", "Function"];
166      push( @$html, &HTML::make_table( $col_hdrs, $tab, "Description By Set" ) );      push( @$html, &HTML::make_table( $col_hdrs, $tab, "Description By Set" ) );
167    
168      if ($user)      if ($user)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3