first pass of new process system

modpol/modules/join_org_class.lua

@@ -5,12 +5,13 @@ JoinOrg = {}
 JoinOrg_mt = { __index = JoinOrg }
 
 
-function JoinOrg.create(initiator, org)
+function JoinOrg.create(initiator, org, id)
     local inst = {
         name = "Join an org",
         desc = "Initiator chooses an org to become a member of. Nothing happens if they are already in an org.",
         initiator = initiator,
-        org = org
+        org = org,
+        id = id
     }
     setmetatable(inst, JoinOrg_mt)
     return inst
@@ -71,6 +72,7 @@ end
 
 function JoinOrg:on_success()
     self.org:add_member(self.initiator)
+    self.org:delete_process(self.id)
 end
 
 -- ===================================