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.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql	27 Feb 2005 17:07:17 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-apm-action-procs-oracle.xql	13 Mar 2005 22:08:45 -0000	1.3
@@ -3,6 +3,14 @@
 
     <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