[Tkabber-dev] r1823 - trunk/tkabber/plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Aug 1 01:45:45 MSD 2009


Author: sergei
Date: 2009-08-01 01:45:44 +0400 (Sat, 01 Aug 2009)
New Revision: 1823

Modified:
   trunk/tkabber/plugins/general/rawxml.tcl
Log:
	* Fixed bug with choosing new prefix.


Modified: trunk/tkabber/plugins/general/rawxml.tcl
===================================================================
--- trunk/tkabber/plugins/general/rawxml.tcl	2009-07-31 19:54:08 UTC (rev 1822)
+++ trunk/tkabber/plugins/general/rawxml.tcl	2009-07-31 21:45:44 UTC (rev 1823)
@@ -129,6 +129,10 @@
     ::xmpp::xml::split $xmldata stag xmlns attrs cdata subels
 
     array set p $prefixes
+    set ps {}
+    foreach ns [array names p] {
+        lappend ps $p($ns)
+    }
     set attrs1 {}
     foreach {attr value} $attrs {
         set l [::split $attr :]
@@ -141,7 +145,7 @@
             } elseif {[info exists p($axmlns)]} {
                 lappend attrs1 $p($axmlns):$aattr $value
             } else {
-                set p($axmlns) [::xmpp::xml::FindNewPrefix [array names p]]
+                set p($axmlns) [::xmpp::xml::FindNewPrefix $ps]
                 lappend attrs1 xmlns:$p($axmlns) $axmlns $p($axmlns):$aattr $value
             }
         } else {



More information about the Tkabber-dev mailing list