[Tkabber-dev] r986 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Feb 27 20:59:28 MSK 2007


Author: sergei
Date: 2007-02-27 20:59:26 +0300 (Tue, 27 Feb 2007)
New Revision: 986

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/muc.tcl
Log:
	* muc.tcl: Fixed reason processing during editing
	  (ban/member/admin/etc.) lists.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-27 05:57:41 UTC (rev 985)
+++ trunk/tkabber/ChangeLog	2007-02-27 17:59:26 UTC (rev 986)
@@ -5,6 +5,9 @@
 	  msgs/uk.msg, msgs/ru.msg, msgs/de.msg: Fixed user messages (thanks
 	  to Roger Sondermann).
 
+	* muc.tcl: Fixed reason processing during editing
+	  (ban/member/admin/etc.) lists.
+
 2007-02-26  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2007-02-27 05:57:41 UTC (rev 985)
+++ trunk/tkabber/muc.tcl	2007-02-27 17:59:26 UTC (rev 986)
@@ -615,14 +615,21 @@
 		set jid [jlib::wrapper:getattr $vars jid]
 		set role [jlib::wrapper:getattr $vars role]
 		set affiliation [jlib::wrapper:getattr $vars affiliation]
-		lappend items2 [list $nick $jid $role $affiliation]
+		set reason ""
+		foreach subitem $children {
+		    jlib::wrapper:splitxml $subitem tag1 vars1 isempty1 chdata1 children1
+		    if {$tag1 == "reason"} {
+			set reason $chdata1
+		    }
+		}
+		lappend items2 [list $nick $jid $role $affiliation $reason]
 	    }
 	}
     }
 
     foreach item [lsort -dictionary -index 1 $items2] {
 	lassign $item listdata($f,nick,$row) listdata($f,jid,$row) \
-		      role affiliation
+		      role affiliation listdata($f,reason,$row)
 
 	entry $f.nick$row -font $font \
 	    -textvariable muc::listdata($f,nick,$row) \



More information about the Tkabber-dev mailing list