[Tkabber-dev] r326 - trunk/plugins/bldjid

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 28 21:44:31 MSD 2010


Author: bigote
Date: 2010-03-28 21:44:30 +0400 (Sun, 28 Mar 2010)
New Revision: 326

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Fixed small inconvenience when searching for jids in banlist and memberlist (it was case-sensitive).


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2010-03-26 04:23:46 UTC (rev 325)
+++ trunk/plugins/bldjid/ChangeLog	2010-03-28 17:44:30 UTC (rev 326)
@@ -1,3 +1,14 @@
+2010-03-28  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.9.9.2 of the plugin.
+
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Fixed small inconvenience when searching for jids
+	in banlist and memberlist (it was case-sensitive).
+
 2010-03-26  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.9.9.1 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2010-03-26 04:23:46 UTC (rev 325)
+++ trunk/plugins/bldjid/bldjid.tcl	2010-03-28 17:44:30 UTC (rev 326)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2010-03-26 v. 0.9.9.1
+# "Bldjid" plugin for Tkabber. 2010-03-28 v. 0.9.9.2
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README or README.ru file for usage.
 
@@ -531,7 +531,7 @@
 	} elseif {$comm == "inbanlist" || $comm == "inmemberlist"} {
 		set jid ""
 		if {[llength $cmd] > 1} {
-			set jid [lindex $cmd 1]
+			set jid [string tolower [lindex $cmd 1]]
 		}
 		set cmd [list [namespace current]::receive_search_list \
 			$attr $val $chatid $jid]
@@ -1104,7 +1104,6 @@
 	} else {
 		return stop
 	}
-puts $grpjds
 	foreach grp $grpjds {
 		foreach item $a($grp) {
 			foreach key [array names p_list] {



More information about the Tkabber-dev mailing list