Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.25.2.2 -r1.25.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Feb 2003 20:32:55 -0000	1.25.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	18 Feb 2003 01:45:42 -0000	1.25.2.3
@@ -316,6 +316,24 @@
         return [db_string select_folder {} -default ""]
     }
 
+    ad_proc -public get_folder_objects {
+        -folder_id:required
+        -user_id:required
+    } {
+        Return a list the object_ids contained by a file storage folder.
+
+        This would be trivial if it weren't for the fact that we need to UNION ALL
+        with the gawddamned fs_simple_objects Open Force forced upon us and which
+        will be removed as soon as I (DRB) find the time to write upgrade scripts.
+
+        @param folder_id The folder for which to retrieve contents
+        @param user_id The viewer of the contents (to make sure they have
+                       permission)
+
+    } {
+        return [db_list select_folder_contents {}]
+    }
+
     ad_proc -public get_folder_contents {
         {-folder_id ""}
         {-user_id ""}
@@ -328,6 +346,8 @@
         At minimum the permission checks returned by the code can be removed.  Most of
         the other fields as well.   Oh well ...
 
+        REMOVE WHEN SYLLABUS IS REWRITTEN TO FIND ITS FILE INTELLIGENTLY
+
         Retrieve the contents of the specified folder in the form of a list
         of ns_sets, one for each row returned. The keys for each row are as
         follows: