[Tkabber-dev] r1230 - in trunk/tkabber: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Sep 18 16:16:07 MSD 2007


Author: sergei
Date: 2007-09-18 16:16:06 +0400 (Tue, 18 Sep 2007)
New Revision: 1230

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iroster.tcl
Log:
	* ifacetk/iroster.tcl: Fixed showing own resources if username is not
	  in lowercase.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-09-17 20:04:20 UTC (rev 1229)
+++ trunk/tkabber/ChangeLog	2007-09-18 12:16:06 UTC (rev 1230)
@@ -1,3 +1,8 @@
+2007-09-18  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iroster.tcl: Fixed showing own resources if username is not
+	  in lowercase.
+
 2007-09-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/chat/popupmenu.tcl: Fixed double encoding of Google query to

Modified: trunk/tkabber/ifacetk/iroster.tcl
===================================================================
--- trunk/tkabber/ifacetk/iroster.tcl	2007-09-17 20:04:20 UTC (rev 1229)
+++ trunk/tkabber/ifacetk/iroster.tcl	2007-09-18 12:16:06 UTC (rev 1230)
@@ -379,7 +379,7 @@
 	}
 	if {$options(show_own_resources)} {
 	    set cgroup [list $own_resources_group_name]
-	    set jid [::jlib::connection_bare_jid $connid]
+	    set jid [tolower_node_and_domain [::jlib::connection_bare_jid $connid]]
 	    set jidsingroup($cgroup) [list $jid]
 	    set groups [linsert $groups 0 [list [join $cgroup "\u0000"] $cgroup]]
 	    roster::itemconfig $connid $jid -subsc both



More information about the Tkabber-dev mailing list