1 Area = mondelefant.new_class()

2 Area.table = 'area'

3

4 Area:add_reference{

5 mode = '1m',

6 to = "Issue",

7 this_key = 'id',

8 that_key = 'area_id',

9 ref = 'issues',

10 back_ref = 'area'

11 }

12

13 Area:add_reference{

14 mode = '1m',

15 to = "Membership",

16 this_key = 'id',

17 that_key = 'area_id',

18 ref = 'memberships',

19 back_ref = 'area'

20 }

21

22 Area:add_reference{

23 mode = '1m',

24 to = "Delegation",

25 this_key = 'id',

26 that_key = 'area_id',

27 ref = 'delegations',

28 back_ref = 'area'

29 }

30

31 Area:add_reference{

32 mode = 'mm',

33 to = "Member",

34 this_key = 'id',

35 that_key = 'id',

36 connected_by_table = 'membership',

37 connected_by_this_key = 'area_id',

38 connected_by_that_key = 'member_id',

39 ref = 'members'

40 }

41

42 Area:add_reference{

43 mode = 'mm',

44 to = "Policy",

45 this_key = 'id',

46 that_key = 'id',

47 connected_by_table = 'allowed_policy',

48 connected_by_this_key = 'area_id',

49 connected_by_that_key = 'policy_id',

50 ref = 'allowed_policies'

51 }

52

53 Area:add_reference{

54 mode = '11',

55 to = "Membership",

56 this_key = 'id',

57 that_key = 'area_id',

58 ref = 'membership_for_member',

59 back_ref = 'area',

60 selector_generator = function(list, options)

61 local member_id = assert(options.member_id)

62

63 -- build list of issue ids

64 local ids = { sep = ", " }

65 for i, object in ipairs(list) do

66 local id = object.id

67 if id ~= nil then

68 ids[#ids+1] = {"?", id}

69 end

70 end

71

72 if #ids == 0 then

73 return Membership:new_selector():empty_list_mode()

74 end

75

76 local selector = Membership:new_selector()

77 selector:add_where{ 'membership.area_id IN ($)', ids }

78 selector:add_where{ 'membership.member_id = ?', member_id }

79

80 return selector

81 end

82 }

83

84

85 function Area.object_get:default_policy()

86 return Policy:new_selector()

87 :join("allowed_policy", nil, "allowed_policy.policy_id = policy.id")

88 :add_where{ "allowed_policy.area_id = ? AND allowed_policy.default_policy", self.id }

89 :optional_object_mode()

90 :exec()

91 end

92

93 function Area:build_selector(args)

94 local selector = Area:new_selector()

95 if args.active ~= nil then

96 selector:add_where{ "active = ?", args.active }

97 end

98 if args.member_id then

99 selector:join("membership", nil, { "membership.area_id = area.id AND membership.member_id = ?", args.member_id })

100 end

101 if args.not_member_id then

102 selector:left_join("membership", nil, { "membership.area_id = area.id AND membership.member_id = ?", args.not_member_id })

103 selector:add_where{ "membership.member_id ISNULL" }

104 end

105 return selector

106 end