# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1238864868 -3600
# Node ID 72e4639c9310d78c14f4caffc3c9f0e4e2207d81
# Parent  bed748f5dbb13e8d338174ea7833ee10807137d3
util.dataforms: Fixes for hidden field type

diff -r bed748f5dbb1 -r 72e4639c9310 util/dataforms.lua
--- a/util/dataforms.lua	Sat Apr 04 16:25:16 2009 +0100
+++ b/util/dataforms.lua	Sat Apr 04 18:07:48 2009 +0100
@@ -1,5 +1,8 @@
 local setmetatable = setmetatable;
 local pairs, ipairs = pairs, ipairs;
+local tostring, type = tostring, type;
+local t_concat = table.concat;
+
 local st = require "util.stanza";
 
 module "dataforms"
@@ -34,9 +37,11 @@
 		if field_type == "hidden" then
 			if type(value) == "table" then
 				-- Assume an XML snippet
-				form:add_child(value);
+				form:tag("value")
+					:add_child(value)
+					:up();
 			elseif value then
-				form:tag("value"):text(tostring(value));
+				form:tag("value"):text(tostring(value)):up();
 			end
 		elseif field_type == "boolean" then
 			form:tag("value"):text((value and "1") or "0"):up();