[Bio] / FigKernelPackages / RAST_submission.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/RAST_submission.pm

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

revision 1.23, Thu Apr 1 20:25:29 2010 UTC revision 1.24, Fri Apr 2 19:02:19 2010 UTC
# Line 1067  Line 1067 
1067          return { status => 'error', error_msg => 'Job not found'};          return { status => 'error', error_msg => 'Job not found'};
1068      }      }
1069    
1070      if (!($self->user_may_access_job($job) && $self->user_owns_job($job)))      if (!($self->user_may_access_job($job)))
1071      {      {
1072          return { status => 'error', error_msg => 'Access denied'};          return { status => 'error', error_msg => 'Access denied'};
1073      }      }
# Line 1116  Line 1116 
1116              my $rc = system("tar", "-x", "-f", $spool_file, "-C", $dest);              my $rc = system("tar", "-x", "-f", $spool_file, "-C", $dest);
1117              if ($rc == 0)              if ($rc == 0)
1118              {              {
1119                    unlink($spool_file);
1120                  return { status => 'ok' };                  return { status => 'ok' };
1121              }              }
1122              else              else

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3