[Tkabber-dev] [tclxmpp commit] r89 - * xmpp/disco.tcl: Fixed searching cached info and items.

codesite-noreply at google.com codesite-noreply at google.com
Sat Mar 14 20:38:11 MSK 2009


Author: sgolovan
Date: Sat Mar 14 10:37:10 2009
New Revision: 89

Modified:
    trunk/ChangeLog
    trunk/xmpp/disco.tcl

Log:
	* xmpp/disco.tcl: Fixed searching cached info and items.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Sat Mar 14 10:37:10 2009
@@ -1,3 +1,7 @@
+2009-03-14  Sergei Golovan  <sgolovan at nes.ru>
+
+	* xmpp/disco.tcl: Fixed searching cached info and items.
+
  2009-03-13  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/bob.tcl: Removed erroneous cid: prefix from CID values.

Modified: trunk/xmpp/disco.tcl
==============================================================================
--- trunk/xmpp/disco.tcl	(original)
+++ trunk/xmpp/disco.tcl	Sat Mar 14 10:37:10 2009
@@ -116,7 +116,7 @@
      if {$cache} {
          if {[llength $commands] == 0} return

-        set idx [lsearch -exact $state(cache) [list info $jid $node]]
+        set idx [lsearch -glob $state(cache) [list [list info $jid $node]  
*]]
          if {$idx >= 0} {
              set result [lindex $state(cache) $idx]
              after idle [list uplevel #0 [lindex $commands 0] \
@@ -241,7 +241,7 @@
      if {$cache} {
          if {[llength $commands] == 0} return

-        set idx [lsearch -exact $state(cache) [list items $jid $node]]
+        set idx [lsearch -glob $state(cache) [list [list items $jid $node]  
*]]
          if {$idx >= 0} {
              set result [lindex $state(cache) $idx]
              after idle [list uplevel #0 [lindex $commands 0] \


More information about the Tkabber-dev mailing list