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.23.2.3 -r1.23.2.4
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	18 Jun 2019 19:18:39 -0000	1.23.2.3
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	7 Jan 2020 15:53:22 -0000	1.23.2.4
@@ -73,14 +73,12 @@
 ad_try {
     acs_user::change_state -user_id $user_id -state $member_state
 
-    switch -- $email_verified_p {
-        "t" {
-            db_exec_plsql approve_email {}
-        }
-        "f" {
-            db_exec_plsql unapprove_email {}
-        }
+    if {$email_verified_p ne ""} {
+        acs_user::update \
+            -user_id $user_id \
+            -email_verified_p $email_verified_p
     }
+
 } on error {errorMsg} {
     ad_return_error "Database Update Failed" "Database update failed with the following error:
     <pre>[ns_quotehtml $errorMsg]</pre>"