[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.45, Fri Aug 20 22:19:55 2004 UTC revision 1.46, Tue Sep 7 02:54:16 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,
          #$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,  
239           $cgi->h2('Work on Subsystems'),           $cgi->h2('Work on Subsystems'),
240           $cgi->start_form(-action => "ssa2.cgi"),           $cgi->start_form(-action => "ssa2.cgi"),
241           "Enter user: ",           "Enter user: ",
242           $cgi->textfield(-name => "user", -size => 20),           $cgi->textfield(-name => "user", -size => 20),
243           $cgi->submit('Work on Subsystems'),           $cgi->submit('Work on Subsystems'),
244           $cgi->end_form,           $cgi->end_form,
245    
246             $cgi->h2('Work on Subsystems Using New, Experimental Code'),
247             "You should try this only if you know how to back yourself up.  This code is new and will be officially released soon.",
248             $cgi->start_form(-action => "subsys.cgi"),
249             "Enter user: ",
250             $cgi->textfield(-name => "user", -size => 20),
251             $cgi->submit('Work on Subsystems'),
252             $cgi->end_form,
253           $cgi->hr,           $cgi->hr,
254          );          );
255    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3