[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.14, Fri Jan 16 14:59:48 2004 UTC revision 1.15, Tue Feb 10 18:44:58 2004 UTC
# Line 173  Line 173 
173                  "Extract assignments made by ",                  "Extract assignments made by ",
174                  $cgi->textfield(-name => "made_by", -size => 50),                  $cgi->textfield(-name => "made_by", -size => 50),
175                  $cgi->br,                  $cgi->br,
176                    "Save as user: ",
177                    $cgi->textfield(-name => "save_user", -size => 50),
178                    $cgi->br,
179                  "After date (MM/DD/YYYY) ",                  "After date (MM/DD/YYYY) ",
180                  $cgi->textfield(-name => "after_date", -size => 15),                  $cgi->textfield(-name => "after_date", -size => 15),
181                  $cgi->br,                  $cgi->br,
# Line 512  Line 515 
515    
516          if ($cgi->param('save_assignments'))          if ($cgi->param('save_assignments'))
517          {          {
518              my $user = $cgi->param('user');              my $user = $cgi->param('save_user');
519              if ($user)              if ($user)
520              {              {
521                  &FIG::verify_dir("$FIG_Config::data/Assignments/$user");                  &FIG::verify_dir("$FIG_Config::data/Assignments/$user");
522                  my $file = &FIG::epoch_to_readable(time) . ":exported_from_local_SEED";                  my $file = &FIG::epoch_to_readable(time) . ":$who:exported_from_local_SEED";
523                  if (open(TMP,">$FIG_Config::data/Assignments/$user/$file"))                  if (open(TMP,">$FIG_Config::data/Assignments/$user/$file"))
524                  {                  {
525                      print TMP join("",map { join("\t",@$_) . "\n" } map { [$_->[0],$_->[3]] } @$tab);                      print TMP join("",map { join("\t",@$_) . "\n" } map { [$_->[0],$_->[3]] } @$tab);

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3