resolve reference choices on server side

1 files changed, 15 insertions, 1 deletions

diff --git a/acf2/model/init.lua b/acf2/model/init.lua
index a45197d..27a2e32 100644
--- a/acf2/model/init.lua
+++ b/acf2/model/init.lua
@@ -7,6 +7,7 @@ local M = {}
 
 M.error = require('acf2.error')
 local raise = M.error.raise
+local relabel = M.error.relabel
 
 local combination = require('acf2.model.combination')
 M.Union = combination.Union
@@ -81,6 +82,19 @@ end
 function M.Reference:meta(context)
    local res = super(self, M.Reference):meta(context)
    res.scope = self:abs_scope(context)
+
+   local txn = context.txn
+   local obj = relabel('system', txn.fetch, txn, res.scope)
+   assert(isinstance(obj, node.Collection))
+   res.choice = {}
+   for k, v in node.pairs(obj) do
+      if isinstance(v, node.TreeNode) then
+	 v = node.path(v)
+	 v = {value=v, ['ui-value']=pth.name(v), path=true}
+      else v = {value=pth.escape(v), ['ui-value']=v} end
+      table.insert(res.choice, v)
+   end
+
    return res
 end
 
@@ -120,7 +134,7 @@ function M.Reference:_validate(context, value)
    end
 
    -- TODO check instance type
-   M.error.relabel(path, self.follow, self, context, value)
+   relabel(path, self.follow, self, context, value)
 
    return value
 end