[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.7, Thu Oct 22 21:15:13 2009 UTC revision 1.8, Fri Oct 23 18:30:17 2009 UTC
# Line 355  Line 355 
355    
356      my $filetype = lc($params->{-filetype});      my $filetype = lc($params->{-filetype});
357      my $tax_id = $params->{-taxonomyID};      my $tax_id = $params->{-taxonomyID};
358      my $domain = lc($params->{-domain});      my $domain = $params->{-domain};
359      my $organism = $params->{-organismName};      my $organism = $params->{-organismName};
360      my $file = $params->{-file};      my $file = $params->{-file};
361      my $keep = $params->{-keepGeneCalls};      my $keep = $params->{-keepGeneCalls};
# Line 425  Line 425 
425      else      else
426      {      {
427          $tax_id = '666666';          $tax_id = '666666';
428            $domain = ucfirst($domain);
429          $taxonomy = $domain;          $taxonomy = $domain;
430      }      }
431    
# Line 804  Line 805 
805      my $dir = $job->download_dir();      my $dir = $job->download_dir();
806      my $file = sprintf($file_pattern, $job->genome_id);      my $file = sprintf($file_pattern, $job->genome_id);
807      my $path = "$dir/$file";      my $path = "$dir/$file";
     if (!open(F, "<", $path))  
     {  
         return { status => 'error', error_msg => "Cannot open download file $path"};  
     }  
808    
809      local $/;      return { status => 'ok', file => $path };
810      undef $/;  
811      my $txt = <F>;  #     if (!open(F, "<", $path))
812      return { status => 'ok', contents => $txt };  #     {
813    #       return { status => 'error', error_msg => "Cannot open download file $path"};
814    #     }
815    
816    #     local $/;
817    #     undef $/;
818    #     my $txt = <F>;
819    #     return { status => 'ok', contents => $txt };
820  }  }
821    
822  sub user_may_access_job  sub user_may_access_job

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3