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

Diff of /FigWebServices/set_variants.cgi

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

revision 1.1, Thu Feb 24 22:02:39 2005 UTC revision 1.2, Sat Apr 16 22:12:17 2005 UTC
# Line 134  Line 134 
134          {          {
135              push(@has,($sub->get_pegs_from_cell($genome,$role) > 0) ? $abbrev->{$role} : ());              push(@has,($sub->get_pegs_from_cell($genome,$role) > 0) ? $abbrev->{$role} : ());
136          }          }
137          $has_filled{join(",",@has)}->{$variant_codes{$genome}} = 1;          $has_filled{join(",",@has)}->{$variant_codes{$genome}}++;
138      }      }
139    
140      my($col_hdrs,$tab,$pattern);      my($col_hdrs,$tab,$pattern);
141      $col_hdrs = ["Pattern","Existing Variant Code","Set To"];      $col_hdrs = ["Pattern","# Genomes with Pattern","Existing Variant Code","Set To"];
142      $tab = [];      $tab = [];
143      foreach $pattern (sort keys(%has_filled))      foreach $pattern (sort keys(%has_filled))
144      {      {
# Line 148  Line 148 
148          {          {
149              $code = shift @codes;              $code = shift @codes;
150              push(@$tab,[$pattern,              push(@$tab,[$pattern,
151                            $has_filled{$pattern}->{$code},
152                          $code,                          $code,
153                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)
154                         ]);                         ]);
# Line 155  Line 156 
156          foreach $code (@codes)          foreach $code (@codes)
157          {          {
158              push(@$tab,[" ",              push(@$tab,[" ",
159                            $has_filled{$pattern}->{$code},
160                          $code,                          $code,
161                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)
162                          ]);                          ]);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3