Index: openacs-4/packages/file-storage/sql/oracle/file-storage-simple-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/Attic/file-storage-simple-package-create.sql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/file-storage/sql/oracle/file-storage-simple-package-create.sql	29 May 2002 23:02:19 -0000	1.4
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-simple-package-create.sql	17 Jul 2002 20:09:47 -0000	1.5
@@ -12,6 +12,7 @@
 
 create or replace package fs_simple_object
 as
+
     function new (
         object_id in fs_simple_objects.object_id%TYPE default NULL,
         object_type in acs_objects.object_type%TYPE default 'fs_simple_object',
@@ -27,12 +28,18 @@
     procedure delete (
         object_id in fs_simple_objects.object_id%TYPE
     );
+
+    function name (
+        object_id in fs_simple_objects.object_id%TYPE
+    ) return fs_simple_objects.name%TYPE;
+
 end fs_simple_object;
 /
 show errors
 
 create or replace package body fs_simple_object
 as
+
     function new (
         object_id in fs_simple_objects.object_id%TYPE default NULL,
         object_type in acs_objects.object_type%TYPE default 'fs_simple_object',
@@ -45,7 +52,7 @@
         context_id in acs_objects.context_id%TYPE
     ) return fs_simple_objects.object_id%TYPE
     is
-        v_object_id  acs_objects.object_id%TYPE;
+        v_object_id                 acs_objects.object_id%TYPE;
     begin
         v_object_id:= acs_object.new (
             object_id => object_id,
@@ -73,12 +80,27 @@
         acs_object.delete(object_id);
     end delete;
 
+    function name (
+        object_id in fs_simple_objects.object_id%TYPE
+    ) return fs_simple_objects.name%TYPE
+    is
+        v_name                      fs_simple_objects.name%TYPE;
+    begin
+        select name
+        into v_name
+        from fs_simple_objects
+        where object_id = fs_simple_object.name.object_id;
+
+        return v_name;
+    end name;
+
 end fs_simple_object;
 /
 show errors
 
 create or replace package fs_url
 as
+
     function new (
         url_id in fs_urls.url_id%TYPE default NULL,
         object_type in acs_objects.object_type%TYPE default 'fs_url',
@@ -107,6 +129,7 @@
 
 create or replace package body fs_url
 as
+
     function new (
         url_id in fs_urls.url_id%TYPE default NULL,
         object_type in acs_objects.object_type%TYPE default 'fs_url',
