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 -N -r1.6 -r1.6.2.1
--- 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	14 Mar 2003 19:07:23 -0000	1.6.2.1
@@ -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>