[Bio] / MGRASTBackend / MGRASTPipeline.pm Repository:
ViewVC logotype

Diff of /MGRASTBackend/MGRASTPipeline.pm

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

revision 1.3, Thu Apr 30 19:18:03 2009 UTC revision 1.4, Fri May 1 19:03:45 2009 UTC
# Line 42  Line 42 
42    
43  sub get_pipeline_for_job {  sub get_pipeline_for_job {
44    my ($job_dir) = @_;    my ($job_dir) = @_;
45    if(! -f "$job_dir/Pipeline"){    if(! -f "$job_dir/PIPELINE"){
46      return &{&pipeline("default")};      return &{&pipeline("default")};
47    } else {    } else {
48      my $pipe = &FIG::file_head("$job_dir/Pipeline", 1);      my $pipe = &FIG::file_head("$job_dir/PIPELINE", 1);
49      chomp $pipe;      chomp $pipe;
50      if (ref(&pipeline($pipe)) eq 'CODE'){      if (ref(&pipeline($pipe)) eq 'CODE'){
51        return &{&pipeline($pipe)};        return &{&pipeline($pipe)};

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3