# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1264172311 0
# Node ID 08bfd7c965318e01160e63b742a99baee4a0c522
# Parent  d9db41109ba046ca2a178ac25604f3074ba18216
util.dataforms: Add optional type parameters (defaults to 'form')

diff -r d9db41109ba0 -r 08bfd7c96531 util/dataforms.lua
--- a/util/dataforms.lua	Fri Jan 22 14:48:30 2010 +0000
+++ b/util/dataforms.lua	Fri Jan 22 14:58:31 2010 +0000
@@ -23,8 +23,8 @@
 	return setmetatable(layout, form_mt);
 end
 
-function form_t.form(layout, data)
-	local form = st.stanza("x", { xmlns = xmlns_forms, type = "form" });
+function form_t.form(layout, data, formtype)
+	local form = st.stanza("x", { xmlns = xmlns_forms, type = formtype or "form" });
 	if layout.title then
 		form:tag("title"):text(layout.title):up();
 	end