[Tkabber-dev] r1787 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Apr 21 21:50:26 MSD 2009


Author: sergei
Date: 2009-04-21 21:50:26 +0400 (Tue, 21 Apr 2009)
New Revision: 1787

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/pubsub.tcl
Log:
	* pubsub.tcl: Fixed configuration forms processing.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-04-21 17:12:31 UTC (rev 1786)
+++ trunk/tkabber/ChangeLog	2009-04-21 17:50:26 UTC (rev 1787)
@@ -2,6 +2,8 @@
 
 	* pubsub.tcl: Fixed typo. Also, fixed requesting pubsub subscriptions.
 
+	* pubsub.tcl: Fixed configuration forms processing.
+
 2009-04-10  Sergei Golovan  <sgolovan at nes.ru>
 
 	* pubsub.tcl: Added forgotten state options to disco popup menu items.

Modified: trunk/tkabber/pubsub.tcl
===================================================================
--- trunk/tkabber/pubsub.tcl	2009-04-21 17:12:31 UTC (rev 1786)
+++ trunk/tkabber/pubsub.tcl	2009-04-21 17:50:26 UTC (rev 1787)
@@ -70,11 +70,12 @@
     }
 
     lassign $res attrs form
+    ::xmpp::xml::split $form stag sxmlns sattrs scdata ssubels
     set node  [::xmpp::xml::getAttr $attrs node]
     set jid   [::xmpp::xml::getAttr $attrs jid]
     set subid [::xmpp::xml::getAttr $attrs subid]
 
-    data::draw_window $form \
+    data::draw_window $ssubels \
 	[namespace code [list SendSubscriptionOptions
 	      $xlib $service $node $jid $subid $commands]]
 }
@@ -205,8 +206,9 @@
     }
 
     lassign $res node form
+    ::xmpp::xml::split $form stag sxmlns sattrs scdata ssubels
 
-    data::draw_window $form \
+    data::draw_window $ssubels \
 	[namespace code [list SendConfigureNode \
 	      $xlib $service $node $commands]]
 }
@@ -257,8 +259,9 @@
 	return
     }
 
+    ::xmpp::xml::split $form stag sxmlns sattrs scdata ssubels
     # TODO: Don't send the form
-    data::draw_window $form \
+    data::draw_window $ssubels \
 	[namespace code [list SendRequestResults
 	      $xlib $service $commands]]
 }



More information about the Tkabber-dev mailing list