Index: openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql	30 May 2018 15:44:09 -0000	1.9
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,20 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="approve_email">
-      <querytext>
-                       begin acs_user.approve_email ( user_id => :user_id ); end;
-      </querytext>
-</fullquery>
-
-
-<fullquery name="unapprove_email">
-      <querytext>
-                       begin acs_user.unapprove_email ( user_id => :user_id ); end;
-      </querytext>
-</fullquery>
-
-
-</queryset>
Index: openacs-4/packages/acs-admin/www/users/member-state-change-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-admin/www/users/member-state-change-postgresql.xql	30 May 2018 15:44:09 -0000	1.9
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="approve_email">
-	<querytext>
-	select acs_user__approve_email (:user_id);
-	</querytext>
-</fullquery>
-
-<fullquery name="unapprove_email">
-	<querytext>
-	select acs_user__unapprove_email (:user_id);
-	</querytext>
-</fullquery>
-
-</queryset>
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 -N -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>"