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 -r1.1 -r1.2
--- openacs-4/packages/file-storage/sql/oracle/file-storage-simple-package-create.sql	2 Apr 2002 07:00:53 -0000	1.1
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-simple-package-create.sql	4 Apr 2002 03:01:06 -0000	1.2
@@ -12,146 +12,139 @@
 
 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',
-           folder_id in fs_simple_objects.folder_id%TYPE,
-           name in fs_simple_objects.name%TYPE,
-           description in fs_simple_objects.description%TYPE,
-           creation_date in acs_objects.creation_date%TYPE default sysdate,
-           creation_user in acs_objects.creation_user%TYPE,
-           creation_ip in acs_objects.creation_ip%TYPE,
-           context_id in acs_objects.context_id%TYPE
-        ) return fs_simple_objects.object_id%TYPE;
+    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',
+        folder_id in fs_simple_objects.folder_id%TYPE,
+        name in fs_simple_objects.name%TYPE,
+        description in fs_simple_objects.description%TYPE,
+        creation_date in acs_objects.creation_date%TYPE default sysdate,
+        creation_user in acs_objects.creation_user%TYPE,
+        creation_ip in acs_objects.creation_ip%TYPE,
+        context_id in acs_objects.context_id%TYPE
+    ) return fs_simple_objects.object_id%TYPE;
 
-        procedure delete (
-           object_id in fs_simple_objects.object_id%TYPE
-        );
+    procedure delete (
+        object_id in fs_simple_objects.object_id%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',
-           folder_id in fs_simple_objects.folder_id%TYPE,
-           name in fs_simple_objects.name%TYPE,
-           description in fs_simple_objects.description%TYPE,
-           creation_date in acs_objects.creation_date%TYPE default sysdate,
-           creation_user in acs_objects.creation_user%TYPE,
-           creation_ip in acs_objects.creation_ip%TYPE,
-           context_id in acs_objects.context_id%TYPE
-        ) return fs_simple_objects.object_id%TYPE
-        is
-           v_object_id  acs_objects.object_id%TYPE;
-        begin
-           v_object_id:= acs_object.new (
-                 object_id => object_id,
-                 object_type => object_type,
-                 creation_date => creation_date,
-                 creation_user => creation_user,
-                 creation_ip => creation_ip,
-                 context_id => context_id
-           );
+    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',
+        folder_id in fs_simple_objects.folder_id%TYPE,
+        name in fs_simple_objects.name%TYPE,
+        description in fs_simple_objects.description%TYPE,
+        creation_date in acs_objects.creation_date%TYPE default sysdate,
+        creation_user in acs_objects.creation_user%TYPE,
+        creation_ip in acs_objects.creation_ip%TYPE,
+        context_id in acs_objects.context_id%TYPE
+    ) return fs_simple_objects.object_id%TYPE
+    is
+        v_object_id  acs_objects.object_id%TYPE;
+    begin
+        v_object_id:= acs_object.new (
+            object_id => object_id,
+            object_type => object_type,
+            creation_date => creation_date,
+            creation_user => creation_user,
+            creation_ip => creation_ip,
+            context_id => context_id
+        );
 
-           insert into fs_simple_objects
-           (object_id, folder_id, name, description) values
-           (v_object_id, folder_id, name, description);
-           
-           return v_object_id;
-        end new;
+        insert into fs_simple_objects
+        (object_id, folder_id, name, description) values
+        (v_object_id, folder_id, name, description);
 
-        procedure delete (
-           object_id in fs_simple_objects.object_id%TYPE
-        )
-        is
-        begin
-           acs_object.delete(object_id);
-        end delete;
+        content_item.update_last_modified(fs_simple_object.new.folder_id);
 
+        return v_object_id;
+    end new;
+
+    procedure delete (
+        object_id in fs_simple_objects.object_id%TYPE
+    )
+    is
+    begin
+        acs_object.delete(object_id);
+    end delete;
+
 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',
-           url in fs_urls.url%TYPE,
-           folder_id in fs_simple_objects.folder_id%TYPE,
-           name in fs_simple_objects.name%TYPE,
-           description in fs_simple_objects.description%TYPE,
-           creation_date in acs_objects.creation_date%TYPE default sysdate,
-           creation_user in acs_objects.creation_user%TYPE,
-           creation_ip in acs_objects.creation_ip%TYPE,
-           context_id in acs_objects.context_id%TYPE
-        ) return fs_urls.url_id%TYPE;
+    function new (
+        url_id in fs_urls.url_id%TYPE default NULL,
+        object_type in acs_objects.object_type%TYPE default 'fs_url',
+        url in fs_urls.url%TYPE,
+        folder_id in fs_simple_objects.folder_id%TYPE,
+        name in fs_simple_objects.name%TYPE,
+        description in fs_simple_objects.description%TYPE,
+        creation_date in acs_objects.creation_date%TYPE default sysdate,
+        creation_user in acs_objects.creation_user%TYPE,
+        creation_ip in acs_objects.creation_ip%TYPE,
+        context_id in acs_objects.context_id%TYPE
+    ) return fs_urls.url_id%TYPE;
 
-        procedure delete (
-           url_id in fs_urls.url_id%TYPE
-        );
+    procedure delete (
+        url_id in fs_urls.url_id%TYPE
+    );
 end fs_url;
 /
 show errors
 
-
-
 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',
-           url in fs_urls.url%TYPE,
-           folder_id in fs_simple_objects.folder_id%TYPE,
-           name in fs_simple_objects.name%TYPE,
-           description in fs_simple_objects.description%TYPE,
-           creation_date in acs_objects.creation_date%TYPE default sysdate,
-           creation_user in acs_objects.creation_user%TYPE,
-           creation_ip in acs_objects.creation_ip%TYPE,
-           context_id in acs_objects.context_id%TYPE
-        ) return fs_urls.url_id%TYPE
-        is
-           v_url_id fs_simple_objects.object_id%TYPE;
-        begin
-           v_url_id:= fs_simple_object.new (
-                object_id => url_id,
-                object_type => object_type,
-                folder_id => folder_id,
-                name => name,
-                description => description,
-                creation_date => creation_date,
-                creation_user => creation_user,
-                creation_ip => creation_ip,
-                context_id => context_id
-           );
-           
-           insert into fs_urls
-           (url_id, url) values
-           (v_url_id, url);
+    function new (
+        url_id in fs_urls.url_id%TYPE default NULL,
+        object_type in acs_objects.object_type%TYPE default 'fs_url',
+        url in fs_urls.url%TYPE,
+        folder_id in fs_simple_objects.folder_id%TYPE,
+        name in fs_simple_objects.name%TYPE,
+        description in fs_simple_objects.description%TYPE,
+        creation_date in acs_objects.creation_date%TYPE default sysdate,
+        creation_user in acs_objects.creation_user%TYPE,
+        creation_ip in acs_objects.creation_ip%TYPE,
+        context_id in acs_objects.context_id%TYPE
+    ) return fs_urls.url_id%TYPE
+    is
+        v_url_id fs_simple_objects.object_id%TYPE;
+    begin
+        v_url_id:= fs_simple_object.new (
+            object_id => url_id,
+            object_type => object_type,
+            folder_id => folder_id,
+            name => name,
+            description => description,
+            creation_date => creation_date,
+            creation_user => creation_user,
+            creation_ip => creation_ip,
+            context_id => context_id
+        );
 
-           return v_url_id;
-        end new;
+        insert into fs_urls
+        (url_id, url) values
+        (v_url_id, url);
 
-        procedure delete (
-           url_id in fs_urls.url_id%TYPE
-        )
-        is
-        begin
-           delete from fs_urls where url_id= fs_url.delete.url_id;
+        return v_url_id;
+    end new;
 
-           fs_simple_object.delete(url_id);
-        end delete;
+    procedure delete (
+        url_id in fs_urls.url_id%TYPE
+    )
+    is
+    begin
+        delete from fs_urls where url_id= fs_url.delete.url_id;
 
+        fs_simple_object.delete(url_id);
+    end delete;
+
 end fs_url;
 /
 show errors
-
-