add-edit-presentation-oracle.xql
DB Query file
Related Files
- packages/wp-slim/www/add-edit-presentation.tcl
- packages/wp-slim/www/add-edit-presentation.adp
- packages/wp-slim/www/add-edit-presentation-postgresql.xql
- packages/wp-slim/www/add-edit-presentation-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
<?xml version="1.0"?>
<queryset>
<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
<fullquery name="wp_styles">
<querytext>
select (case when owner = :user_id then name || ' (yours)' else name end) as name, style_id
from wp_styles
where owner = :user_id
or public_p = 't'
order by name
</querytext>
</fullquery>
<fullquery name="wp_presentation_insert">
<querytext>
begin
:1 := wp_presentation.new(
creation_user => :user_id,
creation_ip => :creation_ip,
creation_date => sysdate,
pres_title => :pres_title,
page_signature => :page_signature,
copyright_notice => :copyright_notice,
style => :style,
public_p => :public_p,
show_modified_p => :show_modified_p,
audience => :audience,
background => :background,
parent_id => :package_id,
package_id => :package_id
);
end;
</querytext>
</fullquery>
<fullquery name="grant_owner_access">
<querytext>
begin
acs_permission.grant_permission(:pres_item_id,:user_id,'wp_admin_presentation');
acs_permission.grant_permission(:pres_item_id,:user_id,'wp_view_presentation');
acs_permission.grant_permission(:pres_item_id,:user_id,'wp_edit_presentation');
acs_permission.grant_permission(:pres_item_id,:user_id,'wp_delete_presentation');
end;
</querytext>
</fullquery>
<fullquery name="make_wp_presentation_public">
<querytext>
begin
acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
end;
</querytext>
</fullquery>
<fullquery name="update_wp_presentation">
<querytext>
begin
wp_presentation.new_revision(
creation_user => :user_id,
creation_ip => :creation_ip,
creation_date => sysdate,
pres_item_id => :pres_item_id,
pres_title => :pres_title,
page_signature => :page_signature,
copyright_notice => :copyright_notice,
public_p => :public_p,
show_modified_p => :show_modified_p,
style => :style,
audience => :audience,
background => :background
);
end;
</querytext>
</fullquery>
<fullquery name="grant_public_read">
<querytext>
begin
acs_permission.grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
end;
</querytext>
</fullquery>
<fullquery name="revoke_public_read">
<querytext>
begin
acs_permission.revoke_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
end;
</querytext>
</fullquery>
<fullquery name="get_presentation_data">
<querytext>
select p.pres_title, p.page_signature, p.copyright_notice, p.public_p, style,
p.show_modified_p from cr_wp_presentations p, cr_items i
where i.item_id = :pres_item_id
and i.live_revision = p.presentation_id
</querytext>
</fullquery>
<fullquery name="get_aud_data">
<querytext>
select content as audience
from cr_revisions, cr_items
where cr_items.content_type = 'cr_wp_presentation_aud'
and cr_items.parent_id = :pres_item_id
and cr_revisions.revision_id = cr_items.live_revision
</querytext>
</fullquery>
<fullquery name="get_back_data">
<querytext>
select content as background
from cr_revisions r, cr_items i
where i.content_type = 'cr_wp_presentation_back'
and i.parent_id = :pres_item_id
and r.revision_id = i.live_revision
</querytext>
</fullquery>
</queryset>