Index: openacs-4/packages/dotlrn/www/member-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-confirm.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/member-confirm.tcl	8 Aug 2006 21:26:24 -0000	1.2
+++ openacs-4/packages/dotlrn/www/member-confirm.tcl	1 Nov 2013 21:08:32 -0000	1.3
@@ -13,7 +13,7 @@
 
 set community_id [dotlrn_community::get_community_id]
 
-if { [exists_and_not_null user_id] } {
+if { ([info exists user_id] && $user_id ne "") } {
 	# we're dropping just one user
 	set page_title "Drop Membership"
 	set confirm_message "Are you sure you want to remove this user from this community ?"
@@ -22,7 +22,7 @@
 	# we're dropping a group of members
 	set rel_types [dotlrn_community::get_roles -community_id $community_id]
 	foreach role $rel_types {
-		if { [string equal $reltype [lindex $role 0]] } { 
+		if {$reltype eq [lindex $role 0]} { 
 			set role_shortname [lang::util::localize [lindex $role 0]]
 			set role_prettyname [lang::util::localize [lindex $role 2]] 
 		}