[Tkabber-dev] [tclxmpp commit] r54 - in trunk: . xmpp

codesite-noreply at google.com codesite-noreply at google.com
Sat Nov 1 21:23:40 MSK 2008


Author: sgolovan
Date: Sat Nov  1 11:22:56 2008
New Revision: 54

Modified:
    trunk/ChangeLog
    trunk/xmpp/data.tcl

Log:
	* xmpp/data.tcl: Fixed parsing items in a result form.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Sat Nov  1 11:22:56 2008
@@ -6,6 +6,8 @@
  	* xmpp/data.tcl: Return form type when searching for a data form.
  	  Parse field elements in result forms.

+	* xmpp/data.tcl: Fixed parsing items in a result form.
+
  2008-10-31  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/xmpp.tcl: Protected unsetting of a variable which stores abort

Modified: trunk/xmpp/data.tcl
==============================================================================
--- trunk/xmpp/data.tcl	(original)
+++ trunk/xmpp/data.tcl	Sat Nov  1 11:22:56 2008
@@ -113,6 +113,7 @@
                  lappend res reported $reported
              }
              item {
+                set fields {}
                  foreach field $ssubels {
                      ::xmpp::xml::split $field \
                                         sstag ssxmlns ssattrs sscdata  
sssubels
@@ -129,8 +130,9 @@
                              lappend values $s3cdata
                          }
                      }
+                    lappend fields $var $values
                  }
-                lappend res item [list $var $values]
+                lappend res item $fields
              }
              field {
                  set type  [::xmpp::xml::getAttr $sattrs type]


More information about the Tkabber-dev mailing list