Index: openacs-4/packages/courses/tcl/course-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/tcl/course-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/courses/tcl/course-procs.xql	2 Feb 2005 23:01:00 -0000	1.2
+++ openacs-4/packages/courses/tcl/course-procs.xql	3 Feb 2005 22:41:27 -0000	1.3
@@ -15,6 +15,14 @@
   </querytext>
 </fullquery>
 
+<fullquery name="course_catalog::get_creation_user.get_creation_user">
+  <querytext>
+        select creation_user from acs_objects
+        where object_id = :object_id
+  </querytext>
+</fullquery>
+
+
 <fullquery name="course_catalog::set_live.set_live_revision">      
       <querytext>
             update cr_items
@@ -72,7 +80,25 @@
       </querytext>
 </fullquery>
 
+<fullquery name="course_catalog::grant_permissions.assessment">
+      <querytext>
+            select ci.item_id as assessment_id from
+            cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a
+            where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and
+            ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id 
+      </querytext>
+</fullquery>
 
+<fullquery name="course_catalog::revoke_permissions.assessment">
+      <querytext>
+            select ci.item_id as assessment_id from
+            cr_folders cf, cr_items ci, cr_revisions cr, as_assessments a
+            where cr.revision_id = ci.latest_revision and a.assessment_id = cr.revision_id and
+            ci.parent_id = cf.folder_id and cf.package_id = :asm_package_id 
+      </querytext>
+</fullquery>
+
+
 </queryset>