oracle8.1.6
select photo_album.get_root_folder(:package_id) from dual
begin
:1 := photo_album.new_root_folder(:package_id);
end;
select acs.magic_object_id('$party') from dual
begin
acs_permission.grant_permission (
object_id => :new_folder_id,
grantee_id => :grantee_id,
privilege => :privilege
);
end;
select content_folder.get_label(:folder_id) from dual
select parent_id as start_id,
content_item.get_title(item_id,'t') as final
from cr_items where item_id = :item_id
select decode(
content_item.get_content_type(i.item_id),
'content_folder',
'index?folder_id=',
'pa_album',
'album?album_id=',
'photo?photo_id='
) || i.item_id,
content_item.get_title(i.item_id,'t')
from cr_items i
connect by prior i.parent_id = i.item_id
and i.item_id != :root_folder_id
start with item_id = :start_id
order by level desc
select case when (select 1
from dual
where exists (select 1
from cr_items
where item_id = :root_folder
connect by prior parent_id = item_id
start with item_id = :item_id)
and content_item.get_content_type(:item_id) = :content_type
) = 1 then 't' else 'f' end
from dual
begin
acs_permission.grant_permission (
object_id => :object_id,
grantee_id => :user_id,
privilege => :privilege
);
end;