From 96d70925489885912caecf59fbd3c6b9c25a4b49 Mon Sep 17 00:00:00 2001
From: Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi>
Date: Tue, 17 Dec 2013 16:56:39 +0200
Subject: read-only collections

---
 acf2/model/field.lua | 14 ++++++++++----
 acf2/model/init.lua  |  1 +
 acf2/model/model.lua |  6 ++----
 acf2/model/node.lua  |  8 +++++++-
 4 files changed, 20 insertions(+), 9 deletions(-)

(limited to 'acf2')

diff --git a/acf2/model/field.lua b/acf2/model/field.lua
index 6587cdc..57c558f 100644
--- a/acf2/model/field.lua
+++ b/acf2/model/field.lua
@@ -158,6 +158,12 @@ function M.Field:_validate(context, value)
    return save
 end
 
+function M.Field:check_editable(context)
+   if not self:editable(context) then
+      raise(context.path, 'Is not editable')
+   end
+end
+
 function M.Field:check_required(context)
    if self.required then raise(context.path, 'Required value not set') end
 end
@@ -167,16 +173,14 @@ function M.Field:normalize(context, value) return value end
 function M.Field:validate(context, value) end
 
 function M.Field:save(context, value)
-   if not self:editable(context) then
-      raise(context.path, 'Is not editable')
-   end
+   self:check_editable(context)
    self:_save(context, self:_validate(context, value))
 end
 
 function M.Field:_save(context, value) context.txn:set(context.addr, value) end
 
 function M.Field:validate_saved(context)
-   self:save(context, self:load(context))
+   if self:editable(context) then self:save(context, self:load(context)) end
 end
 
 
@@ -265,6 +269,8 @@ function M.TreeNode:load(context, options)
 end
 
 function M.TreeNode:save(context, value)
+   self:check_editable(context)
+
    local path = context.path
 
    if value == path then return end
diff --git a/acf2/model/init.lua b/acf2/model/init.lua
index 29258a3..3288566 100644
--- a/acf2/model/init.lua
+++ b/acf2/model/init.lua
@@ -185,6 +185,7 @@ function M.Collection:init(params, itype)
    self.itype = itype or node.Collection
    self.iparams = {
       destroy=self.destroy,
+      editable=self:editable(),
       layout=self.layout,
       required=self.required,
       ui_member=self.ui_member
diff --git a/acf2/model/model.lua b/acf2/model/model.lua
index a7609b0..4140087 100644
--- a/acf2/model/model.lua
+++ b/acf2/model/model.lua
@@ -201,10 +201,8 @@ function M.Model:init(context)
 
    function mt.validate()
       for _, f in ipairs(_members(Field)) do
-	 if f:editable() then
-	    if mt.match(f.condition or {}) then f:validate_saved()
-	    else f:_save() end
-	 end
+	 if mt.match(f.condition or {}) then f:validate_saved()
+	 elseif f:editable() then f:_save() end
       end
       if self.validate then self:validate() end
    end
diff --git a/acf2/model/node.lua b/acf2/model/node.lua
index 3347cd0..86722f2 100644
--- a/acf2/model/node.lua
+++ b/acf2/model/node.lua
@@ -172,6 +172,7 @@ function M.Collection:init(context, params)
    if not mt.txn then return end
 
    mt._meta.type = 'collection'
+   mt._meta.editable = params.editable
    mt._meta.required = params.required
    mt._meta['ui-member'] = params.ui_member or mt._meta['ui-name']:gsub(
       's$', ''
@@ -204,7 +205,12 @@ function M.Collection:init(context, params)
       end
    end
    
-   function mt.save(k, v) mt.member(k):save(v) end
+   function mt.save(k, v)
+      if not params.editable then
+	 raise(mt.path, 'Collection is not editable')
+      end
+      mt.member(k):save(v)
+   end
 end
 
 
-- 
cgit v1.2.3