[Tkabber-dev] [tclxmpp] r113 committed - * Fixed bug with closing tag with prefix.

codesite-noreply at google.com codesite-noreply at google.com
Fri Jul 31 23:44:41 MSD 2009


Revision: 113
Author: sgolovan
Date: Fri Jul 31 12:44:21 2009
Log: 	* Fixed bug with closing tag with prefix.

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

Modified:
  /trunk/xmpp/xml.tcl

=======================================
--- /trunk/xmpp/xml.tcl	Fri Jul 31 12:26:02 2009
+++ /trunk/xmpp/xml.tcl	Fri Jul 31 12:44:21 2009
@@ -218,14 +218,13 @@

      if {![string equal $xmlns ""] && ![string equal $xmlns $pxmlns]} {
          if {![info exists p($xmlns)]} {
-            append retext "<$tag xmlns='[Escape $xmlns]'"
+            lappend newattrs xmlns $xmlns
              set pxmlns $xmlns
          } else {
-            append retext "<$p($xmlns):$tag"
-        }
-    } else {
-        append retext "<$tag"
-    }
+            set tag "$p($xmlns):$tag"
+        }
+    }
+    append retext "<$tag"
      foreach {attr value} $newattrs {
          append retext " $attr='[Escape $value]'"
      }


More information about the Tkabber-dev mailing list