[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.12, Wed Jan 7 03:34:13 2004 UTC revision 1.13, Wed Jan 14 20:20:32 2004 UTC
# Line 245  Line 245 
245      my($i,$function,$who);      my($i,$function,$who);
246    
247      my($peg,$gs,$aliases,@funcs) = @$entry;      my($peg,$gs,$aliases,@funcs) = @$entry;
248        $gs =~ s/\s+\d+$//;
249    
250      my $user = $cgi->param('user');      my $user = $cgi->param('user');
251      $user = $user ? $user : "";      $user = $user ? $user : "";
252    
# Line 502  Line 504 
504    
505          if ($cgi->param('save_assignments'))          if ($cgi->param('save_assignments'))
506          {          {
507              &FIG::verify_dir("$FIG_Config::data/Assignments");              my $user = $cgi->param('user');
508              my $file = &FIG::epoch_to_readable(time);              if ($user)
509              if (open(TMP,">$FIG_Config::data/Assignments/$file"))              {
510                    &FIG::verify_dir("$FIG_Config::data/Assignments/$user");
511                    my $file = &FIG::epoch_to_readable(time) . ":exported_from_local_SEED";
512                    if (open(TMP,">$FIG_Config::data/Assignments/$user/$file"))
513              {              {
514                  print TMP join("",map { join("\t",@$_) . "\n" } map { [$_->[0],$_->[3]] } @$tab);                  print TMP join("",map { join("\t",@$_) . "\n" } map { [$_->[0],$_->[3]] } @$tab);
515                  close(TMP);                  close(TMP);
516              }              }
517                    push(@$html,$cgi->h1("Saved Assignment Set $file"));
518                }
519                else
520                {
521                    push(@$html,$cgi->h1("You need to specify a user to save an assignment set"));
522                }
523          }          }
524    
525          if ($cgi->param('tabs'))          if ($cgi->param('tabs'))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3