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

Diff of /FigWebServices/index.cgi

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

revision 1.41, Mon Jun 28 19:36:33 2004 UTC revision 1.42, Mon Jun 28 20:22:42 2004 UTC
# Line 236  Line 236 
236      my @orgs = sort map { $org = $_; $gs = $fig->genus_species($org); "$gs ($org)" } $fig->genomes("complete",undef);      my @orgs = sort map { $org = $_; $gs = $fig->genus_species($org); "$gs ($org)" } $fig->genomes("complete",undef);
237    
238      push(@$html,      push(@$html,
239             #$cgi->h2('Work on Subsystems'),
240             #$cgi->start_form(-action => "ssa.cgi"),
241             #"Enter user: ",
242             #$cgi->textfield(-name => "user", -size => 20),
243             #$cgi->submit('Work on Subsystems'),
244             #$cgi->end_form,
245             $cgi->h2('Work on Subsystems'),
246             $cgi->start_form(-action => "ssa2.cgi"),
247             "Enter user: ",
248             $cgi->textfield(-name => "user", -size => 20),
249             $cgi->submit('Work on Subsystems'),
250             $cgi->end_form,
251             $cgi->hr,
252            );
253    
254        push(@$html,
255                  $cgi->start_form(-action => "index.cgi"),                  $cgi->start_form(-action => "index.cgi"),
256                  $cgi->h2('Searching for Genes or Functional Roles Using Text'),                  $cgi->h2('Searching for Genes or Functional Roles Using Text'),
257                  "<table><tr>",                  "<table><tr>",
# Line 253  Line 269 
269                  $cgi->submit('Search'),                  $cgi->submit('Search'),
270                  $cgi->reset('Clear'));                  $cgi->reset('Clear'));
271    
     push(@$html,  
          $cgi->hr,  
          #$cgi->h2('Work on Subsystems'),  
          #$cgi->start_form(-action => "ssa.cgi"),  
          #"Enter user: ",  
          #$cgi->textfield(-name => "user", -size => 20),  
          #$cgi->submit('Work on Subsystems'),  
          #$cgi->end_form,  
          $cgi->h2('Work on Subsystems'),  
          $cgi->start_form(-action => "ssa2.cgi"),  
          "Enter user: ",  
          $cgi->textfield(-name => "user", -size => 20),  
          $cgi->submit('Work on Subsystems'),  
          $cgi->end_form,  
         );  
   
272      push(@$html, $cgi->hr,      push(@$html, $cgi->hr,
273                  $cgi->h2('If You Need to Pick an Organism for Options Below'),                  $cgi->h2('If You Need to Pick an Organism for Options Below'),
274                  $cgi->scrolling_list(-name => 'korgs',                  $cgi->scrolling_list(-name => 'korgs',

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3