[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.10, Tue Jan 6 18:14:48 2004 UTC revision 1.11, Wed Jan 7 03:12:44 2004 UTC
# Line 176  Line 176 
176                  "After date (MM/DD/YYYY) ",                  "After date (MM/DD/YYYY) ",
177                  $cgi->textfield(-name => "after_date", -size => 15),                  $cgi->textfield(-name => "after_date", -size => 15),
178                  $cgi->br,                  $cgi->br,
179                  $cgi->checkbox(-label => 'tab-delimited Spreadsheet', -name => 'tabs', -value => 1),                  $cgi->checkbox(-label => 'tab-delimited Spreadsheet: ', -name => 'tabs', -value => 1),
180                    $cgi->br,
181                    $cgi->checkbox(-label => 'Save Assignments: ', -name => 'save_assignments', -value => 1),
182                  $cgi->br,                  $cgi->br,
183                  $cgi->submit('Extract Assignments'),                  $cgi->submit('Extract Assignments'),
184                  $cgi->hr,                  $cgi->hr,
# Line 497  Line 499 
499              ($peg,$func) = @$x;              ($peg,$func) = @$x;
500              push(@$tab,[$peg,&ext_id($fig,$peg),$fig->genus_species($fig->genome_of($peg)),$func]);              push(@$tab,[$peg,&ext_id($fig,$peg),$fig->genus_species($fig->genome_of($peg)),$func]);
501          }          }
502    
503            if ($cgi->param('save_assignments'))
504            {
505                &FIG::verify_dir("$FIG_Config::data/Assignments");
506                my $file = time;
507                if (open(TMP,">$FIG_Config::data/Assignments/$file"))
508                {
509                    print TMP join("",map { join("\t",@$_) . "\n" } map { [$_->[0],$_->[3]] } @$tab);
510                    close(TMP);
511                }
512            }
513    
514          if ($cgi->param('tabs'))          if ($cgi->param('tabs'))
515          {          {
516              print $cgi->header;              print $cgi->header;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3