Lines 231-237
if the job status is not 'completed'.
Link Here
|
231 |
|
231 |
|
232 |
sub results { |
232 |
sub results { |
233 |
my $self = shift; |
233 |
my $self = shift; |
234 |
return undef unless $self->{'status'} eq 'completed'; |
234 |
return unless $self->{'status'} eq 'completed'; |
235 |
return $self->{'results'}; |
235 |
return $self->{'results'}; |
236 |
} |
236 |
} |
237 |
|
237 |
|
Lines 253-259
sub fetch {
Link Here
|
253 |
my $session = get_session($sessionID); |
253 |
my $session = get_session($sessionID); |
254 |
my $prefix = "job_$jobID"; |
254 |
my $prefix = "job_$jobID"; |
255 |
unless (defined $session->param($prefix)) { |
255 |
unless (defined $session->param($prefix)) { |
256 |
return undef; |
256 |
return; |
257 |
} |
257 |
} |
258 |
my $self = $session->param($prefix); |
258 |
my $self = $session->param($prefix); |
259 |
bless $self, $class; |
259 |
bless $self, $class; |
260 |
- |
|
|