From: <jo...@us...> - 2007-01-03 08:56:10
|
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. |