version 1.23, 2003/09/17 17:32:56
|
version 1.24, 2003/09/22 21:03:25
|
Line 689 sub compute {
|
Line 689 sub compute {
|
while (my ($parm,$value) = each(%parameters)) { |
while (my ($parm,$value) = each(%parameters)) { |
last if ($self->blackout()); |
last if ($self->blackout()); |
next if ($parm !~ /^(parameter_.*)_problemstatus$/); |
next if ($parm !~ /^(parameter_.*)_problemstatus$/); |
if ($parameters{$1.'_answerdate'} eq '' || |
if ($parameters{$1.'_answerdate'} ne '' && |
$parameters{$1.'_answerdate'} < time) { |
$parameters{$1.'_answerdate'} < time) { |
next; |
next; |
} |
} |