[Tkabber-dev] r1788 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Apr 21 22:05:08 MSD 2009


Author: sergei
Date: 2009-04-21 22:05:08 +0400 (Tue, 21 Apr 2009)
New Revision: 1788

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


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



More information about the Tkabber-dev mailing list