[Tkabber-dev] r807 - in trunk/tkabber-plugins: . georoster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Nov 25 21:50:14 MSK 2006


Author: sergei
Date: 2006-11-25 21:50:08 +0300 (Sat, 25 Nov 2006)
New Revision: 807

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/georoster/georoster.tcl
Log:
	* georoster/georoster.tcl: Replaced erroneous user_from_jid by
	  node_and_server_from_jid.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2006-11-24 22:20:54 UTC (rev 806)
+++ trunk/tkabber-plugins/ChangeLog	2006-11-25 18:50:08 UTC (rev 807)
@@ -1,3 +1,8 @@
+2006-11-25  Sergei Golovan  <sgolovan at nes.ru>
+
+	* georoster/georoster.tcl: Replaced erroneous user_from_jid by
+	  node_and_server_from_jid.
+
 2006-11-24  Sergei Golovan  <sgolovan at nes.ru>
 
 	* whiteboard/whiteboard.tcl: Use mousewheel to scroll whiteboard

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2006-11-24 22:20:54 UTC (rev 806)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2006-11-25 18:50:08 UTC (rev 807)
@@ -378,18 +378,13 @@
     variable options
     variable georoster
 
-    set jid [user_from_jid $from]
+    set jid [node_and_server_from_jid $from]
     switch -- $type {
-        error
-            -
-        subscribe
-            -
-        subscribed
-            -
-        unsubscribe
-            -
-        unsubscribed
-            -
+        error -
+        subscribe -
+        subscribed -
+        unsubscribe -
+        unsubscribed -
         probe {
             return
         }
@@ -405,8 +400,7 @@
             set to $jid
         }
 
-        available
-            -
+        available -
         default {
             set to $from
         }



More information about the Tkabber-dev mailing list