More basic functionality for policy change

Created change_policy module (though it still does not have an
approval flow; improved display_policies and display_processes modules.

modpol_core/modules/change_policy.lua

@@ -0,0 +1,110 @@
+--- change_policy
+-- @module change_policy
+
+local change_policy = {
+    name = "Change policy",
+    slug = "change_policy",
+    desc = "Change a policy in a module",
+    hide = false;
+}
+
+change_policy.data = {
+   result = nil
+}
+
+change_policy.config = {
+   approval = "none"
+}
+
+--- Change modules initiate
+-- @function change_policy:initiate
+-- @param result Callback if this module is embedded in other modules
+function change_policy:initiate(result)
+   -- prepare module options
+   local available_modules = {}
+   for k,org_mod in pairs(self.org.modules) do
+      if not org_mod.hide then
+         available_modules[org_mod.slug] = modpol.util.copy_table(org_mod)
+   end end
+   local modules_list = {}
+   local modules_count = 0
+   for k,v in pairs(available_modules) do
+      table.insert(modules_list,v.slug)
+      modules_count = modules_count + 1
+   end
+   -- abort if no modules to remove
+   if modules_count == 0 then
+      modpol.interactions.message(
+         self.initiator, "Org has no modules")
+      modpol.interactions.org_dashboard(
+         self.initiator, self.org.id)
+      if self.data.result then self.data.result() end
+      self.org:delete_process(self.id)
+      return
+   end
+   table.sort(modules_list)
+   -- now ask which to remove
+   modpol.interactions.dropdown_query(
+      self.initiator, "Choose a module to change policies for:",
+      modules_list,
+      function(mod_choice)
+         local this_module = self.org.modules[mod_choice]
+         local module_policies = this_module.config
+         local policy_list = {}
+         for k,v in pairs(module_policies) do
+            table.insert(policy_list, k)
+         end
+         if #policy_list == 0 then
+            -- No policies; abort
+            modpol.interactions.message(
+               self.initiator, "Module has no policy options")
+            modpol.interactions.org_dashboard(
+               self.initiator, self.org.id)
+            if self.data.result then self.data.result() end
+            self.org:delete_process(self.id)
+            return
+         end
+         modpol.interactions.dropdown_query(
+            self.initiator, "Choose a policy to change:",
+            policy_list,
+            function(policy_choice)
+               modpol.interactions.text_query(
+                  self.initiator,
+                  "Use carefully!\n" ..
+                  "Current " .. policy_choice .. " value: " ..
+                  tostring(self.org.modules[mod_choice][policy_choice])
+                  .. "\nChange value to:",
+                  function(policy_input)
+                     self:approve_change(
+                        mod_choice,
+                        policy_choice,
+                        policy_input)
+                  end
+               )
+            end
+         )
+      end
+   )
+end
+
+--- Propose a change.
+-- Type "add" or "remove"
+-- @function change_policy:approve_change
+-- @param module (string) slug of module
+-- @param policy (string) policy slug
+-- @param input (string) input content
+function change_policy:approve_change(module_slug, policy, input)
+   -- NEED TO ADD APPROVAL CODE for consent, etc.
+   modpol.interactions.message(
+      self.initiator,
+      "Updating " .. policy .. " policy on module " ..
+      module_slug .. " with: " .. input)
+   self.org.modules[module_slug].config[policy] = input
+   modpol.interactions.org_dashboard(
+      self.initiator, self.org.id)
+   if self.data.result then self.data.result() end
+   self.org:delete_process(self.id)
+   return
+end
+   
+modpol.modules.change_policy = change_policy