[Tkabber-dev] r1527 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Oct 17 22:32:30 MSD 2008


Author: sergei
Date: 2008-10-17 22:32:30 +0400 (Fri, 17 Oct 2008)
New Revision: 1527

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/pubsub.tcl
Log:
	* pubsub.tcl: Fixed closing brackets at the end of several commands.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-10-17 18:18:53 UTC (rev 1526)
+++ trunk/tkabber/ChangeLog	2008-10-17 18:32:30 UTC (rev 1527)
@@ -32,6 +32,8 @@
 
 	* xmppmime.tcl: Changed notation.
 
+	* pubsub.tcl: Fixed closing brackets at the end of several commands.
+
 2008-10-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* AUTHORS: Fixed authors list.

Modified: trunk/tkabber/pubsub.tcl
===================================================================
--- trunk/tkabber/pubsub.tcl	2008-10-17 18:18:53 UTC (rev 1526)
+++ trunk/tkabber/pubsub.tcl	2008-10-17 18:32:30 UTC (rev 1527)
@@ -558,7 +558,7 @@
 		    -xmlns $::NS(pubsub) \
 		    -subelement [::xmpp::xml::create items \
 				    -attrs $vars \
-				    -subelements $items]]] \
+				    -subelements $items]] \
 	-to $service \
 	-command [list [namespace current]::get_items_result $command]
 }
@@ -646,7 +646,7 @@
 		    -xmlns $::NS(pubsub) \
 		    -subelement [::xmpp::xml::create publish \
 					-attrs [list node $node] \
-					-subelements $item]]] \
+					-subelements $item]] \
 	-to $service \
 	-command [list [namespace current]::publish_item_result $command]
 }
@@ -894,7 +894,7 @@
 	-query [::xmpp::xml::create pubsub \
 		    -xmlns $::NS(pubsub#owner) \
 		    -subelement [::xmpp::xml::create configure \
-					-attrs [list node $node]] \
+					-attrs [list node $node]]] \
 	-to $service \
 	-command [list [namespace current]::configure_node_result \
 		       $xlib $service $command]
@@ -981,7 +981,7 @@
     ::xmpp::sendIQ $xlib set \
 	-query [::xmpp::xml::create pubsub \
 		    -xmlns $::NS(pubsub#owner) \
-		    -subelement $form \
+		    -subelement $form] \
 	-to $service \
 	-command [list [namespace current]::request_default_result \
 		       $xlib $service $command]
@@ -1371,7 +1371,7 @@
 	-query [::xmpp::xml::create pubsub \
 		    -xmlns $::NS(pubsub) \
 		    -subelement [::xmpp::xml::create entities \
-					-attrs [list node $node]] \
+					-attrs [list node $node]]] \
 	-to $service \
 	-command [list [namespace current]::receive_entities \
 		       $xlib $service $command]



More information about the Tkabber-dev mailing list