[Tkabber-dev] [tclxmpp commit] r109 - * xmpp/pubsub.tcl: Fixed data forms returning when requesting

codesite-noreply at google.com codesite-noreply at google.com
Tue Apr 21 23:11:34 MSD 2009


Author: sgolovan
Date: Tue Apr 21 10:49:12 2009
New Revision: 109

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

Log:
	* xmpp/pubsub.tcl: Fixed data forms returning when requesting
	  subscription options, node configuration, default node config
	  options.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Tue Apr 21 10:49:12 2009
@@ -3,6 +3,10 @@
  	* xmpp/pubsub.tcl: Fixed IQ types in queries which request items or
  	  configuration forms.

+	* xmpp/pubsub.tcl: Fixed data forms returning when requesting
+	  subscription options, node configuration, default node config
+	  options.
+
  2009-04-17  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/https.tcl: Fixed typo in status message.

Modified: trunk/xmpp/pubsub.tcl
==============================================================================
--- trunk/xmpp/pubsub.tcl	(original)
+++ trunk/xmpp/pubsub.tcl	Tue Apr 21 10:49:12 2009
@@ -435,7 +435,7 @@

                  if {[llength $commands] > 0} {
                      eval [lindex $commands 0] \
-                         [list ok [list $sattrs [lindex $form 0]]]
+                         [list ok [list $sattrs [lindex $form 1]]]
                      return
                  }
              }
@@ -884,7 +884,7 @@

                  if {[llength $commands] > 0} {
                      eval [lindex $commands 0] \
-                         [list ok [list $node [lindex $form 0]]]
+                         [list ok [list $node [lindex $form 1]]]
                      return
                  }
              }
@@ -964,7 +964,7 @@

                  if {[llength $commands] > 0} {
                      eval [lindex $commands 0] \
-                         [list ok [lindex $form 0]]
+                         [list ok [lindex $form 1]]
                      return
                  }
              }


More information about the Tkabber-dev mailing list