Commit 8f66fcc1 authored by Leo Gordon's avatar Leo Gordon
Browse files

bugfix: added the missing prev_job_id accessor method; also added a call to if from new()

parent 0486d885
......@@ -54,9 +54,10 @@ sub new {
my $self = $class->SUPER::new( @_ ); # deal with Storable stuff
my($analysis_id, $input_id, $param_id_stack, $accu_id_stack, $worker_id, $status, $retry_count, $completed, $runtime_msec, $query_count, $semaphore_count, $semaphored_job_id) =
rearrange([qw(analysis_id input_id param_id_stack accu_id_stack worker_id status retry_count completed runtime_msec query_count semaphore_count semaphored_job_id) ], @_);
my($prev_job_id, $analysis_id, $input_id, $param_id_stack, $accu_id_stack, $worker_id, $status, $retry_count, $completed, $runtime_msec, $query_count, $semaphore_count, $semaphored_job_id) =
rearrange([qw(prev_job_id analysis_id input_id param_id_stack accu_id_stack worker_id status retry_count completed runtime_msec query_count semaphore_count semaphored_job_id) ], @_);
$self->prev_job_id($prev_job_id) if(defined($prev_job_id));
$self->analysis_id($analysis_id) if(defined($analysis_id));
$self->input_id($input_id) if(defined($input_id));
$self->param_id_stack($param_id_stack) if(defined($param_id_stack));
......@@ -74,6 +75,12 @@ sub new {
}
sub prev_job_id {
my $self = shift;
$self->{'_prev_job_id'} = shift if(@_);
return $self->{'_prev_job_id'};
}
sub analysis_id {
my $self = shift;
$self->{'_analysis_id'} = shift if(@_);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment