|
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 |
- |
|
|