Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	28 May 2007 15:51:27 -0000	1.13
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	8 Nov 2010 23:09:10 -0000	1.14
@@ -18,16 +18,7 @@
     return_url:onevalue
 }
 
-if {![db_0or1row get_states {
-    select email_verified_p as email_verified_p_old,
-           member_state as member_state_old,
-           first_names || ' ' || last_name as name,
-           email,
-           rel_id,
-           row_id
-    from cc_users
-    where user_id = :user_id
-}]} {
+if {![db_0or1row get_states {}]} {
     # The user is not in there
     ad_return_complaint 1 "Invalid User: the user is not in the system"
     return
@@ -65,7 +56,7 @@
     }
     "f" {
 	set action "Require Email from $name"
-	set email_message "Your email in [ad_system_name] needs approval. please go to [ad_url]/register/email-confirm?[export_url_vars row_id]"
+	set email_message "Your email in [ad_system_name] needs approval. please go to [ad_url]/register/email-confirm"
     }
 }