[Tkabber-dev] r1470 - in trunk/tkabber: . jabberlib

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Jul 8 16:07:16 MSD 2008


Author: sergei
Date: 2008-07-08 16:07:03 +0400 (Tue, 08 Jul 2008)
New Revision: 1470

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/jabberlib/wrapper.tcl
Log:
	* jabberlib/wrapper.tcl, tclxml/sgmlparser.tcl: Bugfix in XMLNS prefix
	  processing when tDOM parser is used.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-07-07 05:21:23 UTC (rev 1469)
+++ trunk/tkabber/ChangeLog	2008-07-08 12:07:03 UTC (rev 1470)
@@ -1,3 +1,8 @@
+2008-07-08  Sergei Golovan  <sgolovan at nes.ru>
+
+	* jabberlib/wrapper.tcl, tclxml/sgmlparser.tcl: Bugfix in XMLNS prefix
+	  processing when tDOM parser is used.
+
 2008-07-07  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).

Modified: trunk/tkabber/jabberlib/wrapper.tcl
===================================================================
--- trunk/tkabber/jabberlib/wrapper.tcl	2008-07-07 05:21:23 UTC (rev 1469)
+++ trunk/tkabber/jabberlib/wrapper.tcl	2008-07-08 12:07:03 UTC (rev 1470)
@@ -130,8 +130,8 @@
 
     set idx [string last : $tagname]
     if {$idx >= 0} {
+	set xmlns [string range $tagname 0 [expr {$idx - 1}]]
 	set tagname [string range $tagname [expr {$idx + 1}] end]
-	set xmlns [string range $tagname 0 [expr {$idx - 1}]]
 	lappend newvarlist xmlns $xmlns
     }
 



More information about the Tkabber-dev mailing list