View | Details | Raw Unified | Return to bug 13606
Collapse All | Expand All

(-)a/C4/BackgroundJob.pm (-1 / +13 lines)
Lines 85-90 sub new { Link Here
85
    $self->{'jobID'} = Digest::MD5::md5_hex(Digest::MD5::md5_hex(time().{}.rand().{}.$$));
85
    $self->{'jobID'} = Digest::MD5::md5_hex(Digest::MD5::md5_hex(time().{}.rand().{}.$$));
86
    $self->{'extra_values'} = {};
86
    $self->{'extra_values'} = {};
87
87
88
    # Remove existing complete jobs
89
    # not to explode the size of the session
90
    my $prefix = "job_" . $self->{'jobID'};
91
    my $session = get_session($self->{'sessionID'});
92
    while ( my ( $param_name, $value ) = each %{$session->param_hashref} ) {
93
        if ( $param_name =~ m|^job_| and $param_name ne $prefix ) {
94
            my $old_job = $session->param($param_name);
95
            if ( $old_job->{status} eq 'completed' ) {
96
                $session->clear([ $param_name ]);
97
            }
98
        }
99
    }
100
88
    bless $self, $class;
101
    bless $self, $class;
89
    $self->_serialize();
102
    $self->_serialize();
90
103
91
- 

Return to bug 13606