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; declare dummy integer; begin dummy := pa_photo.new ( name => :image_name, parent_id => :album_id, item_id => :photo_id, revision_id => :photo_rev_id, creation_user => :user_id, creation_ip => :peeraddr, context_id => :album_id, title => :client_filename, description => :description, is_live => 't', caption => :caption, story => :story ); end; declare dummy integer; begin dummy := image.new ( name => :name, parent_id => :photo_id, item_id => :item_id, revision_id => :rev_id, mime_type => :mime_type, creation_user => :user_id, creation_ip => :peeraddr, relation_tag => :relation, title => :title, description => :description, is_live => :is_live, file_size => :size, filename => :path, height => :height, width => :width, context_id => :context_id, package_id => :package_id ); end; UPDATE pa_photos SET camera_model = :tmp_exif_Cameramodel, user_filename = :upload_name, date_taken = to_date(:tmp_exif_DateTime, 'YYYY-MM-DD HH24:MI:SS'), flash = :tmp_exif_Flashused, aperture = :tmp_exif_Aperture, metering = :tmp_exif_MeteringMode, focal_length = :tmp_exif_Focallength, exposure_time = :tmp_exif_Exposuretime, focus_distance = :tmp_exif_FocusDist, sha256 = :base_sha256 WHERE pa_photo_id = :photo_rev_id SELECT ci.item_id as photo_id, u.user_id, u.first_names || ' ' || u.last_name as username, pp.caption, pp.story, cr.title, cr.description, ci.parent_id as album_id, to_char(o.creation_date,'YYYY-MM-DD HH24:MI:SS') as created_ansi, case when acs_permission.permission_p(ci.item_id, :user_id, 'admin') ='t' then 1 else 0 end as admin_p, case when acs_permission.permission_p(ci.item_id, :user_id, 'write') = 't' then 1 else 0 end as write_p, case when acs_permission.permission_p(ci.parent_id, :user_id, 'write') = 't' then 1 else 0 end as album_write_p, case when acs_permission.permission_p(ci.item_id, :user_id, 'delete') = 't' then 1 else 0 end as photo_delete_p FROM cr_items ci, cr_revisions cr, pa_photos pp, acs_objects o, acs_users_all u WHERE cr.revision_id = pp.pa_photo_id and ci.live_revision = cr.revision_id and o.object_id = ci.item_id and u.user_id = o.creation_user and ci.item_id = :photo_id SELECT n.node_id, item_id FROM cr_items, pa_package_root_folder_map m, site_nodes n WHERE m.folder_id = item_id and item_id = nvl((select item_id from cr_revisions where revision_id = :photo_id),:photo_id) and n.object_id = m.package_id connect by prior cr_items.parent_id = item_id and rownum = 1 select cr.title, ci1.item_id as album_id from cr_revisions cr, (select ci.item_id, ci.live_revision, level as level_num from cr_items ci where content_type = 'pa_album' connect by prior ci.item_id=ci.parent_id start with ci.item_id = :root_folder_id) ci1 where ci1.live_revision = cr.revision_id and exists (select 1 from acs_object_party_privilege_map m where m.object_id = cr.revision_id and m.party_id = :user_id and m.privilege = 'read') order by level_num, cr.title