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.15 -r1.16
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 May 2002 16:42:31 -0000	1.15
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 May 2002 17:01:56 -0000	1.16
@@ -290,6 +290,14 @@
         return [db_exec_plsql new_folder {}]
     }
 
+    ad_proc -public object_p {
+        {-object_id:required}
+    } {
+        is this a file storage object
+    } {
+        return [db_string select_object_p {}]
+    }
+
     ad_proc -public get_object_name {
         {-object_id:required}
     } {