oracle8.1.6
begin
:1 := pa_collection.new (
p_collection_id => :collection_id,
p_owner_id => :user_id,
p_title => :title,
p_creation_date => sysdate,
p_creation_user => :user_id,
p_creation_ip => :peeraddr,
p_context_id => :context
);
end;
insert into pa_collection_photo_map
(collection_id, photo_id)
select :collection_id, :photo_id from dual where
acs_permission.permission_p(:collection_id, :user_id, 'write') = 't'