[Tkabber-dev] r1647 - trunk/tkabber/plugins/roster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Feb 11 20:48:08 MSK 2009


Author: sergei
Date: 2009-02-11 20:48:07 +0300 (Wed, 11 Feb 2009)
New Revision: 1647

Modified:
   trunk/tkabber/plugins/roster/annotations.tcl
Log:
	* plugins/roster/annotations.tcl: Fixed typo.


Modified: trunk/tkabber/plugins/roster/annotations.tcl
===================================================================
--- trunk/tkabber/plugins/roster/annotations.tcl	2009-02-11 17:35:59 UTC (rev 1646)
+++ trunk/tkabber/plugins/roster/annotations.tcl	2009-02-11 17:48:07 UTC (rev 1647)
@@ -25,14 +25,14 @@
 
 hook::add connected_hook [namespace current]::annotations::request_notes
 
-proc annotations::process_notes {xlib status notes} {
+proc annotations::process_notes {xlib status noteslist} {
     variable notes
 
     if {$status != "ok"} return
 
     free_notes $xlib
 
-    foreach note $notes {
+    foreach note $noteslist {
 	create_note $xlib $note
     }
 }
@@ -106,11 +106,11 @@
 
     set notelist {}
     foreach idx [array names notes $xlib,jid,*] {
+	set jid $notes($idx)
+
 	if {![info exists notes($xlib,note,$jid)] || \
 		$notes($xlib,note,$jid) == ""} continue
 
-	set jid $notes($idx)
-
 	lappend notelist [list jid $jid \
 			       cdate $notes($xlib,cdate,$jid) \
 			       mdate $notes($xlib,mdate,$jid) \



More information about the Tkabber-dev mailing list