Lists within BO's

ci_loi

I was trying to run a process that searches through BO's and then adds them to a list. The problem is that the operation is performing more operations than its supposed to. I have bolded the parts I feel are amiss.

2009-01-16 16:28:01,811 TestCount#admin -20 Executing process FindFriends with parameters: RegularUser:1805

2009-01-16 16:28:01,811 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,811 TestCount#admin -22 Evaluating rule 'Find' FIND RegularUser WHERE (RegularUser.HomePlace IN ThisRegularUser.MeetingPlaces OR ThisRegularUser.HomePlace IN RegularUser.MeetingPlaces) AND RegularUser.ID<>ThisRegularUser.ID FindFriends001

2009-01-16 16:28:01,811 TestCount#admin -2 Adding action FIND RegularUser WHERE (RegularUser.HomePlace IN ThisRegularUser.MeetingPlaces OR ThisRegularUser.HomePlace IN RegularUser.MeetingPlaces) AND RegularUser.ID<>ThisRegularUser.ID to the agenda

2009-01-16 16:28:01,827 TestCount#admin -2 Adding action FindFriends001 to the agenda

2009-01-16 16:28:01,827 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,827 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,827 TestCount#admin -15 Executing action FIND RegularUser WHERE (RegularUser.HomePlace IN ThisRegularUser.MeetingPlaces OR ThisRegularUser.HomePlace IN RegularUser.MeetingPlaces) AND RegularUser.ID<>ThisRegularUser.ID

2009-01-16 16:28:01,827 TestCount#admin -33 Found 2 objects

2009-01-16 16:28:01,827 TestCount#admin -16 Finished executing action FIND RegularUser WHERE (RegularUser.HomePlace IN ThisRegularUser.MeetingPlaces OR ThisRegularUser.HomePlace IN RegularUser.MeetingPlaces) AND RegularUser.ID<>ThisRegularUser.ID

2009-01-16 16:28:01,827 TestCount#admin -15 Executing action FindFriends001

2009-01-16 16:28:01,827 TestCount#admin -17

2009-01-16 16:28:01,827 TestCount#admin -20 Executing process FindFriends001 with parameters: RegularUser:1807

2009-01-16 16:28:01,827 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,827 TestCount#admin -22 Evaluating rule 'Find' INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,827 TestCount#admin -2 Adding action INSERT RegularUser IN ThisRegularUser.Friends to the agenda

2009-01-16 16:28:01,827 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,827 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,827 TestCount#admin -15 Executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,827 TestCount#admin -17

2009-01-16 16:28:01,827 TestCount#admin -28 Starting execution of rules when updating references of the business object RegularUser 1807

2009-01-16 16:28:01,827 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,827 TestCount#admin -22 Evaluating rule 'Uniqueness of login name' If EXISTS SystemUser WHERE (SystemUser.LoginName=ThisRegularUser.LoginName AND SystemUser.ID<>ThisRegularUser.ID) Then REPORT ERROR 'User with this login name already exists. Please choose a different name'

2009-01-16 16:28:01,827 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,827 TestCount#admin -22 Evaluating rule 'Initial value for RegularUser.AccessLevel' If RegularUser.AccessLevel IS UNDEFINED Then RegularUser.AccessLevel='Administrator'

2009-01-16 16:28:01,827 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,827 TestCount#admin -22 Evaluating rule 'Must provide value of RegularUser.LoginName' if RegularUser.LoginName IS UNDEFINED then REPORT ERROR 'Value of LoginName must be provided'

2009-01-16 16:28:01,827 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,827 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,827 TestCount#admin -16 Finished execution of rules when updating references of the business object RegularUser 1807

2009-01-16 16:28:01,827 TestCount#admin -17

2009-01-16 16:28:01,827 TestCount#admin -25 Started evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,827 TestCount#admin -6 Checking rule Uniqueness of login name

2009-01-16 16:28:01,827 TestCount#admin -6 Checking rule Initial value for RegularUser.AccessLevel

2009-01-16 16:28:01,827 TestCount#admin -6 Checking rule Must provide value of RegularUser.LoginName

2009-01-16 16:28:01,827 TestCount#admin -16 Finished evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,827 TestCount#admin -16 Finished executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,827 TestCount#admin -16 Finished executing process FindFriends001

2009-01-16 16:28:01,827 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -20 Executing process FindFriends001 with parameters: RegularUser:1805

2009-01-16 16:28:01,843 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Find' INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -2 Adding action INSERT RegularUser IN ThisRegularUser.Friends to the agenda

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -15 Executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -28 Starting execution of rules when updating references of the business object RegularUser 1805

2009-01-16 16:28:01,843 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Uniqueness of login name' If EXISTS SystemUser WHERE (SystemUser.LoginName=ThisRegularUser.LoginName AND SystemUser.ID<>ThisRegularUser.ID) Then REPORT ERROR 'User with this login name already exists. Please choose a different name'

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Initial value for RegularUser.AccessLevel' If RegularUser.AccessLevel IS UNDEFINED Then RegularUser.AccessLevel='Administrator'

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Must provide value of RegularUser.LoginName' if RegularUser.LoginName IS UNDEFINED then REPORT ERROR 'Value of LoginName must be provided'

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -16 Finished execution of rules when updating references of the business object RegularUser 1805

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -25 Started evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Uniqueness of login name

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Initial value for RegularUser.AccessLevel

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Must provide value of RegularUser.LoginName

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing process FindFriends001

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -20 Executing process FindFriends001 with parameters: RegularUser:1806

2009-01-16 16:28:01,843 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Find' INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -2 Adding action INSERT RegularUser IN ThisRegularUser.Friends to the agenda

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -15 Executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -28 Starting execution of rules when updating references of the business object RegularUser 1806

2009-01-16 16:28:01,843 TestCount#admin -29 Started evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Initial value for RegularUser.AccessLevel' If RegularUser.AccessLevel IS UNDEFINED Then RegularUser.AccessLevel='Administrator'

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -22 Evaluating rule 'Must provide value of RegularUser.LoginName' if RegularUser.LoginName IS UNDEFINED then REPORT ERROR 'Value of LoginName must be provided'

2009-01-16 16:28:01,843 TestCount#admin -16 Finished rule evaluation

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules

2009-01-16 16:28:01,843 TestCount#admin -16 Finished execution of rules when updating references of the business object RegularUser 1806

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -25 Started evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Uniqueness of login name

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Initial value for RegularUser.AccessLevel

2009-01-16 16:28:01,843 TestCount#admin -6 Checking rule Must provide value of RegularUser.LoginName

2009-01-16 16:28:01,843 TestCount#admin -16 Finished evaluation of rules after data has been changed by the actions

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing action INSERT RegularUser IN ThisRegularUser.Friends

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing process FindFriends001

2009-01-16 16:28:01,843 TestCount#admin -17

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing action FindFriends001

2009-01-16 16:28:01,843 TestCount#admin -16 Finished executing process FindFriends

2009-01-16 16:28:01,843 TestCount#admin -17

aware_support

So what's the problem?

ci_loi

the problem is that even though the operation finds two items.. it is applying the rule to three items...

aware_support

Can you attach rules of the processes involved?

ci_loi

sure.

Process: FindFriends
Imports: None
Rule: Find
FIND RegularUser WHERE (RegularUser.HomePlace IN ThisRegularUser.MeetingPlaces OR ThisRegularUser.HomePlace IN RegularUser.MeetingPlaces) AND RegularUser.ID<>ThisRegularUser.ID
FindFriends001

Process: FindFriends001
Imports: RegularUser
Rule: Find
INSERT RegularUser IN ThisRegularUser.Friends

tford

Not sure of your application, but would "LoggedIn" be appropriate? :

INSERT RegularUser IN LoggedInRegularUser.Friends

Tom

ci_loi

in this instance i am controlling things from an administrator stand point. i have already explored the idea that it could be a context issue and have thus far, found it not to be.

in the real application i use LoggedIn prefix with the same result.

aware_support

This rule doesn't make too much sense unless you use LoggedInUser
INSERT RegularUser IN ThisRegularUser.Friends

"This" prefix here means the parameter of the proces. So you are inserting RegularUser to itself. With LoggedIn user it makes perfect sense.

All you need to do is change you rule to be:
IF RegularUser.ID <> LoggedInRegularUser.ID Then
INSERT RegularUser IN LoggedInRegularUser.Friends

The problem is that the process is called for the users found AND the logged in user since it's always in the context, so you just need to check for this