[Tkabber-dev] r1594 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Nov 1 23:31:52 MSK 2008


Author: sergei
Date: 2008-11-01 23:31:52 +0300 (Sat, 01 Nov 2008)
New Revision: 1594

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/datagathering.tcl
Log:
	* datagathering.tcl: Fixed form sending if it is not a jabber:x:data
	  form.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-11-01 20:07:14 UTC (rev 1593)
+++ trunk/tkabber/ChangeLog	2008-11-01 20:31:52 UTC (rev 1594)
@@ -18,6 +18,9 @@
 
 	* plugins/filetransfer/si.tcl, si.tcl: Got rid of unnecessary vwait.
 
+	* datagathering.tcl: Fixed form sending if it is not a jabber:x:data
+	  form.
+
 2008-10-29  Sergei Golovan  <sgolovan at nes.ru>
 
 	* login.tcl, presence.tcl: Fixed resetting user status if all Tkabber

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2008-11-01 20:07:14 UTC (rev 1593)
+++ trunk/tkabber/datagathering.tcl	2008-11-01 20:31:52 UTC (rev 1594)
@@ -43,6 +43,7 @@
     lassign [::xmpp::data::findForm $items] type form
 
     if {[string equal $type form]} {
+	set data(x,$g) 1
 	set fields [::xmpp::data::parseForm $form]
     } else {
 	set fields [parse_fields $items]
@@ -267,7 +268,6 @@
 proc data::fill_fields_x {g items} {
     variable data
 
-    set data(x,$g) 1
     set row 0
     set data(allvarlist,$g) {}
     set focus ""



More information about the Tkabber-dev mailing list