[Tkabber-dev] r1917 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 7 23:57:06 MSK 2010


Author: sergei
Date: 2010-02-07 23:57:06 +0300 (Sun, 07 Feb 2010)
New Revision: 1917

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/muc_commands.tcl
Log:
	* plugins/chat/muc_commands.tcl: Fixed call to a few procedures from
	  ::muc namespace.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-02-07 07:03:05 UTC (rev 1916)
+++ trunk/tkabber/ChangeLog	2010-02-07 20:57:06 UTC (rev 1917)
@@ -2,6 +2,9 @@
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
 
+	* plugins/chat/muc_commands.tcl: Fixed call to a few procedures from
+	  ::muc namespace.
+
 2010-02-06  Sergei Golovan  <sgolovan at nes.ru>
 
 	* login.tcl: Removed assigning global gr_nick, gr_server and

Modified: trunk/tkabber/plugins/chat/muc_commands.tcl
===================================================================
--- trunk/tkabber/plugins/chat/muc_commands.tcl	2010-02-07 07:03:05 UTC (rev 1916)
+++ trunk/tkabber/plugins/chat/muc_commands.tcl	2010-02-07 20:57:06 UTC (rev 1917)
@@ -21,11 +21,11 @@
 	lassign [parse_nick_reason $body 5] nick reason
     } elseif {[string equal [string range $body 0 6] "/unban "]} {
 	set jid [parse_nick $body 7]
-	unban $xlib $group $jid
+	muc::unban $xlib $group $jid
 	return stop
     } elseif {[string equal [string range $body 0 6] "/whois "]} {
 	set nick [parse_nick $body 7]
-	whois $xlib $group/$nick $chatid
+	muc::whois $xlib $group/$nick $chatid
 	return stop
     } elseif {[string equal [string range $body 0 6] "/voice "]} {
 	set attr role
@@ -71,7 +71,7 @@
 	return
     }
 
-    change_item_attr $xlib $group/$nick $attr $value $reason $chatid
+    muc::change_item_attr $xlib $group/$nick $attr $value $reason $chatid
 
     return stop
 }



More information about the Tkabber-dev mailing list