[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.3, Mon Dec 5 19:12:12 2005 UTC revision 1.4, Mon Feb 13 23:49:31 2006 UTC
# Line 161  Line 161 
161      {      {
162          my @codes = keys(%{$has_filled{$pattern}});          my @codes = keys(%{$has_filled{$pattern}});
163          my $code;          my $code;
164            my $nrow = @codes;
165          if (@codes > 0)          if (@codes > 0)
166          {          {
167              $code = shift @codes;              $code = shift @codes;
168              push(@$tab,[$pattern,              push( @$tab, [ [ $pattern, "td rowspan=$nrow"],
169                          $has_filled{$pattern}->{$code},                          $has_filled{$pattern}->{$code},
170                          $code,                          $code,
171                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)
172                         ]);                         ]);
173          }          }
174    
175          foreach $code (@codes)          foreach $code (@codes)
176          {          {
177              push(@$tab,[" ",              push(@$tab,[$has_filled{$pattern}->{$code},
                         $has_filled{$pattern}->{$code},  
178                          $code,                          $code,
179                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)                          $cgi->textfield(-name => "p:$pattern:$code", -size => 5, -value => $code, -override => 1)
180                          ]);                          ]);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3