Index: openacs-4/packages/lors-central/tcl/lors-central-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/tcl/lors-central-procs.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lors-central/tcl/lors-central-procs.xql	17 May 2005 16:21:18 -0000	1.1
+++ openacs-4/packages/lors-central/tcl/lors-central-procs.xql	31 May 2005 22:57:22 -0000	1.2
@@ -1,7 +1,31 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="lors_central::owner.get_creation_user">
+  <querytext>
+       	select
+		1
+       	from
+		acs_objects
+	where
+		creation_user = :user_id and
+	        object_id = :object_id
+  </querytext>
+</fullquery>
 
+<fullquery name="lors_central::check_inst.check_inst">
+  <querytext>
+       	select
+		count(user_id)
+       	from
+		dotlrn_member_rels_full
+	where
+		user_id = :user_id and
+		( role = 'admin' or role = 'instructor' )
+	        $extra_query
+  </querytext>
+</fullquery>
+
 <fullquery name="lors_central::get_ims_item_id_or_res_id.get_res_id">
   <querytext>
        select
@@ -238,6 +262,18 @@
   </querytext>
 </fullquery>
 
+<fullquery name="lors_central::get_root_organizations_folder_id.get_folder_id_from_name">
+  <querytext>
+        select 
+               folder_id 
+        from 
+               cr_folders
+        where 
+               label = 'LORSM Organizations Folder'
+  </querytext>
+</fullquery>
+
+
 <fullquery name="lors_central::get_root_resources_folder_id.get_folder_id_from_name">
   <querytext>
         select