Index: openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql,v
diff -u -r1.3 -r1.3.16.1
--- openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql	13 Mar 2005 22:08:45 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql	1 Sep 2020 15:11:19 -0000	1.3.16.1
@@ -3,14 +3,6 @@
 
     <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-    <fullquery name="as::actions::get_admin_user_id.select_user_id">
-        <querytext>
-            select q.user_id from
-            (select user_id
-            from users
-            where acs_permission.permission_p(:context_root_id, user_id, 'admin') = 't') q where rownum = 1
-        </querytext>
-    </fullquery>
     <fullquery name="as::actions::insert_actions.insert_default">
         <querytext>
 		begin 
Index: openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql,v
diff -u -r1.5 -r1.5.16.1
--- openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql	13 Mar 2005 22:08:45 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql	1 Sep 2020 15:11:19 -0000	1.5.16.1
@@ -3,16 +3,6 @@
 
     <rdbms><type>postgresql</type><version>7.2</version></rdbms>
 
-
-    <fullquery name="as::actions::get_admin_user_id.select_user_id">
-        <querytext>
-            select user_id
-            from users
-            where acs_permission__permission_p(:context_root_id, user_id, 'admin') = 't'
-            limit 1  
-        </querytext>
-    </fullquery>
-
     <fullquery name="as::actions::insert_actions.insert_default">
         <querytext>
 		  select as_action__default_actions ($package_id,$user_id,$package_id)
Index: openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl	25 Apr 2018 21:32:06 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl	1 Sep 2020 15:11:19 -0000	1.10.2.1
@@ -11,7 +11,11 @@
 } {
     set context_root_id [acs_lookup_magic_object security_context_root]
 
-    return [db_string select_user_id {}]
+    return [db_string select_user_id {
+        select min(user_id)
+          from users
+        where acs_permission.permission_p(:context_root_id, user_id, 'admin')
+    }]
 }
 
 ad_proc -public as::actions::insert_actions {