|
Lines 97-102
sub _serialize {
Link Here
|
| 97 |
|
97 |
|
| 98 |
my $prefix = "job_" . $self->{'jobID'}; |
98 |
my $prefix = "job_" . $self->{'jobID'}; |
| 99 |
my $session = get_session($self->{'sessionID'}); |
99 |
my $session = get_session($self->{'sessionID'}); |
|
|
100 |
while ( my ( $param_name, $value ) = each %{$session->param_hashref} ) { |
| 101 |
if ( $param_name =~ m|^job_| and $param_name ne $prefix ) { |
| 102 |
$session->clear([ $param_name ]); |
| 103 |
} |
| 104 |
} |
| 100 |
$session->param($prefix, $self); |
105 |
$session->param($prefix, $self); |
| 101 |
$session->flush(); |
106 |
$session->flush(); |
| 102 |
} |
107 |
} |
| 103 |
- |
|
|