[Amsn-commits] SF.net SVN: amsn: [7716] trunk/amsn/groups.tcl

[<jo...@us...>]

Revision: 7716
          http://svn.sourceforge.net/amsn/?rev=7716&view=rev
Author:   jonne_z
Date:     2007-01-03 00:56:01 -0800 (Wed, 03 Jan 2007)

Log Message:
-----------
Group name seems to have "gid_" prefix now.
This should fix http://www.amsn-project.net/forums/viewtopic.php?t=2376,
where it is stated that blockgroup / unblockgroup are not working anymore.

Modified Paths:
--------------
    trunk/amsn/groups.tcl

Modified: trunk/amsn/groups.tcl
===================================================================
--- trunk/amsn/groups.tcl	2007-01-01 12:57:14 UTC (rev 7715)
+++ trunk/amsn/groups.tcl	2007-01-03 08:56:01 UTC (rev 7716)
@@ -233,7 +233,7 @@
 					#Get the group for each contact
 					foreach gp [::abook::getContactData $user_login group] {
 						#If the group is the same at specified, block the user
-						if {$gp == $gid} {
+						if {"gid_$gp" == $gid} {
 							set name [::abook::getNick ${user_login}]
 							after $timer [list ::MSN::blockUser ${user_login} [urlencode $name]]
 							set timer [expr {$timer + 250}]
@@ -253,7 +253,7 @@
 				#Get the group for each contact
 				foreach gp [::abook::getContactData $user_login group] {
 					#Compare if the group of the user is the same that the group requested to be blocked
-					if {$gp == $gid} {
+					if {"gid_$gp" == $gid} {
 						#If yes, unblock the user
 						set name [::abook::getNick ${user_login}]
 						after $timer [list ::MSN::unblockUser ${user_login} [urlencode $name]]


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.