oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

here ya go

Browse source
This commit is contained in:
Matthew Wilson 2006-04-17 08:02:52 +00:00
parent 6dd1bf331a
commit 72974abb58
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -1115,7 +1115,15 @@ sub verifyAllPrerequisites {
return [] unless $lastResultsSize;
until ($currentResultsSize == $lastResultsSize) {
$currentResultsSize = $lastResultsSize;
$lastResults = {%$lastResults,%{$self->verifyEventPrerequisites($lastResults)}};
my $newMsgLoop = [];
($lastResults,$newMsgLoop) = {%$lastResults,%{$self->verifyEventPrerequisites($lastResults,1)}};
foreach my $newMsg (@$newMsgLoop) {
my $add = 1;
foreach my $oldMsg (@$msgLoop) {
$add = 0 if $oldMsg->{productId} eq $newMsg->{productId};
}
push (@$msgLoop,$newMsg) if $update;
}
$lastResultsSize = scalar(keys %$lastResults);
}