# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1226548064 0
# Node ID f15afbcbc55cf52dfcf7e8a15e65bb853241f0f5
# Parent  021ccf988f3b5b1f3fdafc0bea738b6b3e04d8f1
Add new top_tag() method to stanzas

diff -r 021ccf988f3b -r f15afbcbc55c util/stanza.lua
--- a/util/stanza.lua	Wed Nov 12 19:26:08 2008 +0000
+++ b/util/stanza.lua	Thu Nov 13 03:47:44 2008 +0000
@@ -105,6 +105,14 @@
 	return s_format("<%s%s>%s</%s>", t.name, attr_string, children_text, t.name);
 end
 
+function stanza_mt.top_tag(t)
+	local attr_string = "";
+	if t.attr then
+		for k, v in pairs(t.attr) do if type(k) == "string" then attr_string = attr_string .. s_format(" %s='%s'", k, tostring(v)); end end
+	end
+	return s_format("<%s%s>", t.name, attr_string);
+end
+
 function stanza_mt.__add(s1, s2)
 	return s1:add_direct_child(s2);
 end