sub do_finish {

    my $self = shift;

    my ($jobid_to_delete) = @_;

    delete $self->{jobs_h}->{$jobid_to_delete};

    my $i_to_delete;
    my $ar_jobs_a = $self->{jobs_a};
    JID:
    for my $i (0 .. $#$ar_jobs_a) {
        my $jid = $ar_jobs_a->[$i]{jobid};
        next JID unless $jid == $jobid_to_delete;
        $i_to_delete = $i;
        last JID; 
        }

    splice @$ar_jobs_a, $i_to_delete, 1 if defined $i_to_delete;

    return @$ar_jobs_a ? 'ok' : 'done';

    }