oracle8.1.6 begin :1 := file_storage.new_root_folder( folder_url => :name, package_id => :package_id, folder_name => :pretty_name, description => :description ); end; begin :1 := file_storage.get_root_folder( package_id => :package_id ); end; begin :1 := file_storage.new_folder( name => :name, folder_name => :pretty_name, parent_id => :parent_id, creation_user => :creation_user, creation_ip => :creation_ip ); end; begin content_folder.edit_name( folder_id => :folder_id, label => :name ); end; select fs_objects.object_id, fs_objects.name, fs_objects.live_revision, fs_objects.type, to_char(fs_objects.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi, fs_objects.content_size, fs_objects.url, fs_objects.key, fs_objects.sort_key, fs_objects.file_upload_name, case when fs_objects.last_modified >= (sysdate - :n_past_days) then 1 else 0 end as new_p, acs_permission.permission_p(fs_objects.object_id, :user_id, 'admin') as admin_p, acs_permission.permission_p(fs_objects.object_id, :user_id, 'delete') as delete_p, acs_permission.permission_p(fs_objects.object_id, :user_id, 'write') as write_p from fs_objects where fs_objects.parent_id = :folder_id and exists (select 1 from acs_object_party_privilege_map m where m.object_id = fs_objects.object_id and m.party_id = :user_id and m.privilege = 'read') order by fs_objects.sort_key, fs_objects.name begin :1 := file_storage.get_folder_name(:folder_id); end; select count(*) from cr_items where item_id in (select item_id from cr_items connect by prior item_id = parent_id start with item_id = :item_id) and acs_permission.permission_p(item_id, :user_id, :privilege) = 'f' select item_id as child_item_id from cr_items connect by prior item_id = parent_id start with item_id = :item_id select count(*) from cr_revisions where item_id = :child_item_id and acs_permission.permission_p(revision_id, :user_id, :privilege) = 'f' begin :1 := file_storage.get_title(:item_id); end; select case when file_storage.get_content_type(i.item_id) = 'content_folder' then :folder_url || '?' || :extra_vars || '&folder_id=' else :file_url || '?' || :extra_vars || '&file_id=' end || i.item_id, file_storage.get_title(i.item_id) from cr_items i where item_id not in (select i2.item_id from cr_items i2 connect by prior i2.parent_id = i2.item_id start with i2.item_id = file_storage.get_parent_id(:root_folder_id)) connect by prior i.parent_id = i.item_id start with item_id = :start_id order by level desc select person.name(o.creation_user) as owner from acs_objects o where o.object_id = :file_id select site_node.url(node_id) as path1 from site_nodes where object_id = (select package_id from fs_root_folders where fs_root_folders.folder_id = :root_folder) select content from cr_revisions where revision_id = $live_revision begin :1 := content_item.get_id ( :name, :folder_id, 'f' ); end; begin :1 := file_storage.new_file ( folder_id => :parent_id, title => :name, creation_user => :creation_user, creation_ip => :creation_ip, item_id => :item_id, indb_p => :indbp ); end; begin acs_object.update_last_modified(:parent_id,:creation_user,:creation_ip); acs_object.update_last_modified(:item_id,:creation_user,:creation_ip); end;