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

diff -r a17e73ab5f4c -r 586893d29eaf util/dataforms.lua
--- a/util/dataforms.lua	Thu Jan 21 14:53:01 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