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