[Tkabber-dev] r1176 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Aug 7 22:02:05 MSD 2007


Author: sergei
Date: 2007-08-07 22:02:04 +0400 (Tue, 07 Aug 2007)
New Revision: 1176

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/histool.tcl
Log:
	* plugins/chat/histool.tcl: Fixed history tree if JID resources
	  contain double colons.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-08-07 08:23:47 UTC (rev 1175)
+++ trunk/tkabber/ChangeLog	2007-08-07 18:02:04 UTC (rev 1176)
@@ -3,6 +3,9 @@
 	* plugins/general/rawxml.tcl: Removed redundant xmlns attributes from
 	  pretty-printed XML for better readability.
 
+	* plugins/chat/histool.tcl: Fixed history tree if JID resources
+	  contain double colons.
+
 2007-08-06  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iroster.tcl: Fixed roster item menu commands in case

Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2007-08-07 08:23:47 UTC (rev 1175)
+++ trunk/tkabber/plugins/chat/histool.tcl	2007-08-07 18:02:04 UTC (rev 1176)
@@ -171,6 +171,7 @@
 
     [namespace parent]::search::browser::setup_panel $w $sw $t
 
+    set counter 0
     foreach LA [lsort -index 0 $loghier] {
 	lassign $LA year months
 	$t insert end root root.$year -text $year
@@ -178,7 +179,7 @@
 	    lassign $LB month jids
 	    $t insert end root.$year root.$year.$month -text $d2m($month)
 	    foreach {jid fname} [sort_jids $jids -order {server node resource}] {
-		$t insert end root.$year.$month root.$year.$month.$jid -text $jid
+		$t insert end root.$year.$month [incr counter] -text $jid
 	    }
 	}
     }



More information about the Tkabber-dev mailing list