[Tkabber-dev] [tclxmpp] r152 committed - * xmpp/pubsub.tcl: Fixed a few typos (thanks to Jan Zachorowski).

tclxmpp at googlecode.com tclxmpp at googlecode.com
Mon Mar 8 11:38:15 MSK 2010


Revision: 152
Author: sgolovan
Date: Mon Mar  8 00:38:00 2010
Log: 	* xmpp/pubsub.tcl: Fixed a few typos (thanks to Jan Zachorowski).

http://code.google.com/p/tclxmpp/source/detail?r=152

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

=======================================
--- /trunk/ChangeLog	Mon Feb 15 07:02:30 2010
+++ /trunk/ChangeLog	Mon Mar  8 00:38:00 2010
@@ -1,3 +1,7 @@
+2010-03-08  Sergei Golovan  <sgolovan at nes.ru>
+
+	* xmpp/pubsub.tcl: Fixed a few typos (thanks to Jan Zachorowski).
+
  2010-02-15  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/muc.tcl: Fixed lowering affiliation to outcast.
=======================================
--- /trunk/xmpp/pubsub.tcl	Mon Jan 25 09:14:37 2010
+++ /trunk/xmpp/pubsub.tcl	Mon Mar  8 00:38:00 2010
@@ -515,7 +515,7 @@
              -max_items { set max_items $val }
              -items {
                  foreach id $val {
-                    lappend items [::xmpp::xml::create item
+                    lappend items [::xmpp::xml::create item \
                                         -attrs [list id $id]]
                  }
              }
@@ -543,13 +543,13 @@
                                      -attrs $attrs \
                                      -subelements $items]] \
          -to $service \
-        -command [namespace code [GetItemsResult $commands]]
+        -command [namespace code [list GetItemsResult $commands]]
  }

  proc ::xmpp::pubsub::GetItemsResult {commands status xml} {
      if {![string equal $status ok]} {
          if {[llength $commands] > 0} {
-            eval [lindex $commands 0 ][list $status $xml]
+            eval [lindex $commands 0] [list $status $xml]
          }
          return
      }


More information about the Tkabber-dev mailing list