Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.xql	31 Jul 2002 21:18:33 -0000	1.6
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.xql	29 May 2003 18:05:49 -0000	1.7
@@ -4,11 +4,20 @@
 
     <fullquery name="dotlrn_fs::get_community_shared_folder.select_community_shared_folder">
         <querytext>
-            select folder_id
-            from fs_folders
+            select item_id
+            from cr_items
             where parent_id = :root_folder_id
-            and key = 'public'
+            and name = 'public'
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_fs::clone.get_default_folder">
+        <querytext>
+            select item_id
+            from cr_items
+            where parent_id = :folder_id
+            and name = :folder
+        </querytext>
+    </fullquery>
+
 </queryset>