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

Diff of /FigWebServices/subsys.cgi

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

revision 1.46, Wed Feb 16 18:59:21 2005 UTC revision 1.47, Fri Feb 18 18:05:06 2005 UTC
# Line 1304  Line 1304 
1304    
1305              @pegs = ();              @pegs = ();
1306              @cells = ();              @cells = ();
1307    
1308               my $skip = 0;
1309               my $good = 0;
1310               my $v;
1311               if ($cgi->param('include_these_variants'))
1312               {
1313                   my @variant_list = split(',',$cgi->param('include_these_variants'));
1314                   foreach $v (@variant_list)
1315                   {
1316                    if ($v == $vcode_value)
1317                     {
1318                        $good = 1;
1319                     }
1320                   }
1321                   if($good == 0)
1322                   {
1323                       $skip = 1;
1324                   }
1325    
1326               }
1327    
1328               next if ($skip);
1329    
1330    
1331              foreach $set (@row_guide)              foreach $set (@row_guide)
1332              {              {
1333                  $peg_set = [];                  $peg_set = [];
# Line 1433  Line 1457 
1457                                           -value => ['unsorted','alphabetic','by_variant','by_phylo','by_tax_id'],                                           -value => ['unsorted','alphabetic','by_variant','by_phylo','by_tax_id'],
1458                                           -default => 'unsorted'                                           -default => 'unsorted'
1459                                           ));                                           ));
1460    
1461            push(@$html,'<br><br>Enter comma-separated list of variants to display in spreadsheet<br>',
1462                    $cgi->textfield(-name => "include_these_variants", -size => 50)
1463              );
1464      }      }
1465  }  }
1466    

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3