Index: openacs-4/packages/wp-slim/www/attach-del-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-del-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-del-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ wp_attachment.delete(:attach_item_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/attach-del-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-del-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-del-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,16 @@
+
+
+
+ postgresql7.1
+
+
+
+
+
+ select wp_attachment__delete(:attach_item_id);
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/attach-detail-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-detail-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-detail-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,21 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip
+ from cr_revisions r,
+ acs_objects ao
+ where r.item_id = :attach_item_id
+ and ao.object_id = r.revision_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/attach-detail-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-detail-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-detail-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,21 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip
+ from cr_revisions r,
+ acs_objects ao
+ where r.item_id = :attach_item_id
+ and ao.object_id = r.revision_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/attach-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/attach-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,72 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+begin
+ select item_id into :1
+ from cr_items
+ where content_type = 'cr_wp_attachment'
+ and name = :client_filename
+ and parent_id = :slide_item_id;
+exception
+ when no_data_found then
+ :1 := content_item.new(
+ creation_user => :user_id,
+ creation_ip => :creation_ip,
+ creation_date => sysdate,
+ name => :client_filename,
+ parent_id => :slide_item_id,
+ content_type => 'cr_wp_attachment'
+ );
+end;
+
+
+
+
+
+
+
+
+ insert into cr_mime_types (mime_type)
+ select :mime_type
+ from dual
+ where not exists (select 1 from cr_mime_types where mime_type = :mime_type)
+
+
+
+
+
+
+
+
+begin
+ content_item.set_live_revision(:revision_id);
+end;
+
+
+
+
+
+
+
+
+ insert into cr_wp_attachments
+ (
+ attach_id,
+ display
+ )
+ select
+ :revision_id,
+ :display
+ from dual
+ where not exists (select 1 from cr_wp_attachments where attach_id = :revision_id)
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/attach-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/attach-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/attach-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select wp_attachment__new(
+ :attachment,
+ :display,
+ :slide_item_id,
+ now(),
+ :user_id,
+ :creation_ip
+ );
+
+
+
+
+
+
+
+ insert into cr_mime_types (mime_type)
+ select :mime_type
+
+ where not exists (select 1 from cr_mime_types where mime_type = :mime_type)
+
+
+
+
+
+
+
+ select content_item__set_live_revision(:revision_id);
+
+
+
+
+
+
+
+
+ insert into cr_wp_attachments
+ (
+ attach_id,
+ display
+ )
+ select
+ :revision_id,
+ :display
+
+ where not exists (select 1 from cr_wp_attachments where attach_id = :revision_id)
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/create-presentation-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/create-presentation-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,54 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ 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
+ );
+ end;
+
+
+
+
+
+
+
+
+ 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;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/create-presentation-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/create-presentation-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,56 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select wp_presentation__new(
+ now(),
+ :user_id,
+ :creation_ip,
+ :pres_title,
+ :page_signature,
+ :copyright_notice,
+ :style,
+ :public_p,
+ :show_modified_p,
+ :audience,
+ :background
+ );
+
+
+
+
+
+
+
+
+#select
+#acs_permission__grant_permissi(:pres_item_id,:user_id,'wp_admin_presentation');
+#select
+#acs_permission__grant_permission(:pres_item_id,:user_id,'wp_view_presentation');
+#select
+#acs_permission__grant_permission(:pres_item_id,:user_id,'wp_edit_presentation');
+#select
+#acs_permission__grant_permission(:pres_item_id,:user_id,'wp_delete_presenation');
+
+
+
+
+
+
+
+
+
+
+#select
+#acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/create-slide-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/create-slide-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ :1 := wp_slide.new(
+ pres_item_id => :pres_item_id,
+ creation_user => :user_id,
+ creation_ip => :creation_ip,
+ creation_date => sysdate,
+ slide_title => :slide_title,
+ original_slide_id => -100,
+ sort_key => :sort_key,
+ preamble => :preamble,
+ postamble => :postamble,
+ bullet_items => :bullet_list
+ );
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/create-slide-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/create-slide-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,30 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select wp_slide__new(
+ :pres_item_id,
+ now(),
+ :user_id,
+ :creation_ip,
+ :slide_title,
+ '-1',
+ '-100',
+ :sort_key,
+ :preamble,
+ :bullet_list,
+ :postamble,
+ 't',
+ 'f',
+ NULL
+ );
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/delete-presentation-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/delete-presentation-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/delete-presentation-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ wp_presentation.delete(:pres_item_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/delete-presentation-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/delete-presentation-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/delete-presentation-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select wp_presentation__delete(:pres_item_id);
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/delete-slide-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/delete-slide-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/delete-slide-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ wp_slide.delete(:slide_item_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/delete-slide-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/delete-slide-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/delete-slide-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+ select wp_slide__delete(:slide_item_id);
+
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-presentation-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-presentation-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,52 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ 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;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-presentation-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-presentation-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,48 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select wp_presentation__new_revision(
+ now(),
+ :user_id,
+ :creation_ip,
+ :pres_item_id,
+ :pres_title,
+ :page_signature,
+ :copyright_notice,
+ :style,
+ :public_p,
+ :show_modified_p,
+ :audience,
+ :background
+ );
+
+
+
+
+
+
+
+
+ select
+acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+
+
+
+
+
+
+
+
+ select
+acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-presentation-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-presentation-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select p.pres_title, p.page_signature, p.copyright_notice, p.public_p, p.show_modified_p, wp_presentation.get_audience(:pres_item_id) as audience, wp_presentation.get_background(:pres_item_id) as background
+ from cr_wp_presentations p, cr_items i
+ where i.item_id = :pres_item_id
+ and i.live_revision = p.presentation_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-presentation-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-presentation-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,40 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select p.pres_title, p.page_signature, p.copyright_notice, p.public_p,
+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
+
+
+
+
+
+
+ select name 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
+
+
+
+
+
+
+ select name 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
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-slide-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-slide-2-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ wp_slide.new_revision (
+ creation_user => :user_id,
+ creation_ip => :creation_ip,
+ creation_date => sysdate,
+ slide_item_id => :slide_item_id,
+ slide_title => :slide_title,
+ preamble => :preamble,
+ postamble => :postamble,
+ bullet_items => :bullet_items,
+ original_slide_id => :original_slide_id,
+ sort_key => :sort_key
+ );
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-slide-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-slide-2-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ postgresql7.1
+
+
+
+ select wp_slide__new_revision (
+ now(),
+ :user_id,
+ :creation_ip,
+ :slide_item_id,
+ :slide_title,
+ :preamble,
+ :bullet_items,
+ :postamble,
+ '-1',
+ :original_slide_id,
+ :sort_key,
+ 't',
+ 'f'
+ );
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-slide-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-slide-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,23 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select s.slide_title,
+ s.sort_key,
+ s.original_slide_id,
+ wp_slide.get_preamble(:slide_item_id) as preamble,
+ wp_slide.get_postamble(:slide_item_id) as postamble,
+ wp_slide.get_bullet_items(:slide_item_id) as bullet_items
+from cr_wp_slides s, cr_items i
+where i.item_id = :slide_item_id
+and i.live_revision = s.slide_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/edit-slide-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/edit-slide-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,58 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select s.slide_title,
+ s.sort_key,
+ s.original_slide_id
+from cr_wp_slides s, cr_items i
+where i.item_id = :slide_item_id
+and i.live_revision = s.slide_id
+
+
+
+
+
+
+ select content as preamble
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_preamble'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision
+
+
+
+
+
+
+
+
+select content as postamble
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_postamble'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision
+
+
+
+
+
+
+
+
+
+
+ select content as bullet_items
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_bullet_items'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision;
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/get-binary-data-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/get-binary-data-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/get-binary-data-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select content
+from cr_revisions
+where revision_id = $attach_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/get-binary-data-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/get-binary-data-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/get-binary-data-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select content
+from cr_revisions
+where revision_id = :attach_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/index-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select i.item_id as pres_item_id,
+ pres.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date,
+ ao.creation_user,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_items i, cr_wp_presentations pres, persons p, acs_objects ao
+ where i.live_revision = pres.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user = p.person_id
+ and pres.public_p = 't'
+
+
+
+
+
+
+
+
+ select i.item_id as pres_item_id,
+ p.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date
+ from cr_items i, cr_wp_presentations p, acs_objects ao
+ where i.live_revision = p.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user = :user_id
+
+
+
+
+
+
+
+
+ select i.item_id as pres_item_id,
+ pres.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date,
+ ao.creation_user,
+ p.first_names || ' ' || p.last_name as full_name,
+ acs_permission.permission_p(i.item_id, :user_id, 'wp_edit_presentation') as edit_p
+ from cr_items i, cr_wp_presentations pres, persons p, acs_objects ao
+ where i.live_revision = pres.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user <> :user_id
+ and ao.creation_user = p.person_id
+ and acs_permission.permission_p(i.item_id, :user_id, 'wp_view_presentation') = 't'
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/index-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select i.item_id as pres_item_id,
+ pres.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date,
+ ao.creation_user,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_items i, cr_wp_presentations pres, persons p, acs_objects ao
+ where i.live_revision = pres.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user = p.person_id
+ and pres.public_p = 't'
+
+
+
+
+
+
+
+
+ select i.item_id as pres_item_id,
+ p.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date
+ from cr_items i, cr_wp_presentations p, acs_objects ao
+ where i.live_revision = p.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user = :user_id
+
+
+
+
+
+
+
+
+ select i.item_id as pres_item_id,
+ pres.pres_title,
+ to_char(ao.creation_date, 'Month DD, YYYY') as creation_date,
+ ao.creation_user,
+ p.first_names || ' ' || p.last_name as full_name,
+ acs_permission__permission_p(i.item_id, :user_id, 'wp_edit_presentation') as edit_p
+ from cr_items i, cr_wp_presentations pres, persons p, acs_objects ao
+ where i.live_revision = pres.presentation_id
+ and ao.object_id = i.item_id
+ and ao.creation_user <> :user_id
+ and ao.creation_user = p.person_id
+ and acs_permission__permission_p(i.item_id, :user_id, 'wp_view_presentation') = 't'
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/live-revision-set-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/live-revision-set-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/live-revision-set-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ content_item.set_live_revision(:revision_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/live-revision-set-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/live-revision-set-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/live-revision-set-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_item__set_live_revision(:revision_id);
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-add-3-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-3-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-3-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,39 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id, :user_id_from_search, 'wp_view_presentation');
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id, :user_id_from_search, 'wp_view_presentation');
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id, :user_id_from_search, 'wp_view_presentation');
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-add-3-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-3-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-3-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,34 @@
+
+
+
+ postgresql7.1
+
+
+
+ select acs_permission__grant_permission(:pres_item_id,
+:user_id_from_search,'wp_view_presentation');
+
+
+
+
+
+
+
+
+ select acs_permission__grant_permission(:pres_item_id,
+:user_id_from_search, 'wp_view_presentation');
+
+
+
+
+
+
+
+
+ select acs_permission__grant_permission(:pres_item_id,
+:user_id_from_search, 'wp_view_presentation');
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,37 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ declare
+ cursor v_cursor is
+ select member_id
+ from group_member_map
+ where group_id = :group_id;
+ begin
+ if :role = 'read' then
+ for c in v_cursor loop
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
+ end loop;
+ elsif (:role = 'write') then
+ for c in v_cursor loop
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_edit_presentation');
+ end loop;
+ else
+ for c in v_cursor loop
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_edit_presentation');
+ acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_admin_presentation');
+ end loop;
+ end if;
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,46 @@
+
+
+
+ postgresql7.1
+
+
+
+
+
+ select
+ if :role = ''read'' then
+ for record in select member_id
+ from group_member_map
+ where group_id = :group_id;
+ loop
+ acs_permission__grant_permission(:pres_item_id, c.member_id,''wp_view_presentation'');
+ end loop;
+ else if (:role = ''write'') then
+ for record in select member_id
+ from group_member_map
+ where group_id = :group_id;
+ loop
+ acs_permission__grant_permission(:pres_item_id, c.member_id, ''wp_view_presentation'');
+ acs_permission__grant_permission(:pres_item_id, c.member_id,
+''wp_edit_presentation'');
+ end loop;
+ else
+ for record in select member_id
+ from group_member_map
+ where group_id = :group_id;
+ loop
+ acs_permission__grant_permission(:pres_item_id, c.member_id,
+''wp_view_presentation'');
+ acs_permission__grant_permission(:pres_item_id, c.member_id,
+''wp_edit_presentation'');
+ acs_permission__grant_permission(:pres_item_id, c.member_id,
+''wp_admin_presentation'');
+ end loop;
+ end if;
+
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-delete-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-delete-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,25 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ declare
+ owner_id acs_objects.creation_user%TYPE;
+ begin
+ select creation_user into owner_id
+ from acs_objects
+ where object_id = :pres_item_id;
+
+ if (owner_id <> :user_id) then
+ acs_permission.revoke_permission(:pres_item_id, :user_id, :privilege);
+ end if;
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-acl-delete-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,37 @@
+
+
+
+ postgresql7.1
+
+
+
+
+create function inline_0()
+returns integer as'
+
+ declare
+ owner_id integer;
+
+
+
+ select creation_user into owner_id
+ from acs_objects
+ where object_id = :pres_item_id;
+
+ if (owner_id != :user_id) then
+ PERFORM acs_permission__revoke_permission(:pres_item_id, :user_id, :privilege);
+ end if;
+
+return 0;
+
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-public-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-public-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-public-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+ end;
+
+
+
+
+
+
+
+
+ begin
+ acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,25 @@
+
+
+
+ postgresql7.1
+
+
+
+ select
+acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+
+
+
+
+
+
+
+
+ select
+acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-publish-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-publish-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-publish-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ declare
+ v_revision_id cr_revisions.revision_id%TYPE;
+ begin
+ content_item.set_live_revision(:revision_id);
+
+ select id into v_revision_id
+ from cr_wp_presentations_audience
+ where presentation_id = :revision_id;
+ content_item.set_live_revision(v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_presentations_background
+ where presentation_id = :revision_id;
+ content_item.set_live_revision(v_revision_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-publish-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-publish-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-publish-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ postgresql7.1
+
+
+
+declare
+ v_revision_id integer;
+
+ select content_item.set_live_revision(:revision_id);
+
+ select id into v_revision_id
+ from cr_wp_presentations_aud
+ where presentation_id = :revision_id;
+
+ select content_item.set_live_revision(:v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_presentations_back
+ where presentation_id = :revision_id;
+
+ select content_item.set_live_revision(:v_revision_id);
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-revisions-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-revisions-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-revisions-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip,
+ i.live_revision,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_revisions r,
+ cr_items i,
+ acs_objects ao,
+ persons p
+ where r.item_id = :pres_item_id
+ and ao.object_id = r.revision_id
+ and i.item_id = r.item_id
+ and p.person_id = ao.creation_user
+ order by creation_date
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-revisions-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-revisions-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-revisions-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip,
+ i.live_revision,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_revisions r,
+ cr_items i,
+ acs_objects ao,
+ persons p
+ where r.item_id = :pres_item_id
+ and ao.object_id = r.revision_id
+ and i.item_id = r.item_id
+ and p.person_id = ao.creation_user
+ order by creation_date
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-top-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-top-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-top-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,42 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select p.public_p,
+ p.pres_title as presentation_title,
+ acs_permission.permission_p(:pres_item_id, :user_id, 'wp_admin_presentation') as admin_p,
+ acs_permission.permission_p(:pres_item_id, :user_id, 'wp_delete_presentation') as delete_p,
+ ao.creation_user
+from cr_wp_presentations p,
+ cr_items i,
+ acs_objects ao
+where i.item_id = :pres_item_id
+and i.live_revision = p.presentation_id
+and ao.object_id = :pres_item_id
+
+
+
+
+
+
+
+
+ select first_names || ' ' || last_name as full_name,
+ person_id,
+ acs_permission.permission_p(:pres_item_id, person_id, 'wp_view_presentation') as view_p,
+ acs_permission.permission_p(:pres_item_id, person_id, 'wp_edit_presentation') as edit_p,
+ acs_permission.permission_p(:pres_item_id, person_id, 'wp_admin_presentation') as admin_p
+ from persons
+ where acs_permission.permission_p(:pres_item_id, person_id, 'wp_view_presentation') = 't'
+ or acs_permission.permission_p(:pres_item_id, person_id, 'wp_edit_presentation') = 't'
+ or acs_permission.permission_p(:pres_item_id, person_id, 'wp_admin_presentation') = 't'
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/presentation-top-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-top-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/presentation-top-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,43 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select p.public_p,
+ p.pres_title as presentation_title,
+ acs_permission__permission_p(:pres_item_id, :user_id, 'wp_admin_presentation') as admin_p,
+ acs_permission__permission_p(:pres_item_id, :user_id, 'wp_delete_presentation') as delete_p,
+ ao.creation_user
+from cr_wp_presentations p,
+ cr_items i,
+ acs_objects ao
+where i.item_id = :pres_item_id
+and i.live_revision = p.presentation_id
+and ao.object_id = :pres_item_id
+
+
+
+
+
+
+
+
+ select first_names || ' ' || last_name as full_name,
+ person_id,
+ acs_permission__permission_p(:pres_item_id, person_id, 'wp_view_presentation') as view_p,
+ acs_permission__permission_p(:pres_item_id, person_id, 'wp_edit_presentation') as edit_p,
+ acs_permission__permission_p(:pres_item_id, person_id, 'wp_admin_presentation') as admin_p
+ from persons
+ where acs_permission__permission_p(:pres_item_id, person_id,
+'wp_view_presentation') = 'f'
+ or acs_permission__permission_p(:pres_item_id, person_id, 'wp_edit_presentation') = 't'
+ or acs_permission__permission_p(:pres_item_id, person_id, 'wp_admin_presentation') = 't'
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-presentation-revision-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-presentation-revision-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-presentation-revision-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,24 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select p.pres_title,
+ p.page_signature,
+ p.copyright_notice,
+ p.public_p,
+ p.show_modified_p,
+ wp_presentation.get_audience_revision(:pres_revision_id) as audience,
+ wp_presentation.get_background_revision(:pres_revision_id) as background
+ from cr_wp_presentations p, cr_items i
+ where i.item_id = :pres_item_id
+ and p.presentation_id = :pres_revision_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-presentation-revision-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-presentation-revision-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-presentation-revision-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,38 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select p.pres_title,
+ p.page_signature,
+ p.copyright_notice,
+ p.public_p,
+ p.show_modified_p
+ from cr_wp_presentations p, cr_items i
+ where i.item_id = :pres_item_id
+ and p.presentation_id = :pres_revision_id
+
+
+
+
+
+ select content as audience
+ from cr_revisions r, cr_wp_presentations_aud pa
+ where pa.presentation_id = :pres_revision_id
+ and r.revision_id = pa.id;
+
+
+
+
+
+ select content as background
+ from cr_revisions r, cr_wp_presentations_back pb
+ where pb.presentation_id = :pres_revision_id
+ and r.revision_id = pb.id;
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-slide-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-slide-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,24 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select s.slide_title,
+ s.sort_key,
+ wp_slide.get_preamble(:slide_item_id) as preamble,
+ wp_slide.get_postamble(:slide_item_id) as postamble,
+ wp_slide.get_bullet_items(:slide_item_id) as bullet_items,
+ to_char(ao.creation_date, 'HH24:MI, Mon DD, YYYY') as modified_date
+ from cr_wp_slides s, cr_items i, acs_objects ao
+ where i.item_id = :slide_item_id
+ and i.live_revision = s.slide_id
+ and ao.object_id = s.slide_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-slide-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-slide-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select s.slide_title,
+ s.sort_key,
+ to_char(ao.creation_date, 'HH24:MI, Mon DD, YYYY') as modified_date
+ from cr_wp_slides s, cr_items i, acs_objects ao
+ where i.item_id = :slide_item_id
+ and i.live_revision = s.slide_id
+ and ao.object_id = s.slide_id
+
+
+
+
+
+
+
+ select content as preamble
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_preamble'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision
+
+
+
+
+
+
+
+
+select content as postamble
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_postamble'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision
+
+
+
+
+
+
+
+
+select content as bullet_items
+ from cr_revisions, cr_items
+ where cr_items.content_type = 'cr_wp_slide_bullet_items'
+ and cr_items.parent_id = :slide_item_id
+ and cr_revisions.revision_id = cr_items.live_revision;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-slide-revision-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide-revision-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-slide-revision-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select s.slide_title,
+ s.sort_key,
+ wp_slide.get_preamble_revision(:slide_revision_id) as preamble,
+ wp_slide.get_postamble_revision(:slide_revision_id) as postamble,
+ wp_slide.get_bullet_items_revision(:slide_revision_id) as bullet_items,
+ to_char(ao.creation_date, 'HH24:MI, Mon DD, YYYY') as modified_date
+ from cr_wp_slides s,
+ cr_items i,
+ acs_objects ao
+ where i.item_id = :slide_item_id
+ and s.slide_id = :slide_revision_id
+ and ao.object_id = s.slide_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/serve-slide-revision-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide-revision-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/serve-slide-revision-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select s.slide_title,
+ s.sort_key,
+ wp_slide__get_preamble_revision(:slide_revision_id) as preamble,
+ wp_slide__get_postamble_revision(:slide_revision_id) as postamble,
+ wp_slide__get_bullet_items_revision(:slide_revision_id) as bullet_items,
+ to_char(ao.creation_date, 'HH24:MI, Mon DD, YYYY') as modified_date
+ from cr_wp_slides s,
+ cr_items i,
+ acs_objects ao
+ where i.item_id = :slide_item_id
+ and s.slide_id = :slide_revision_id
+ and ao.object_id = s.slide_id
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/slide-publish-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/slide-publish-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/slide-publish-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,34 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ declare
+ v_revision_id cr_revisions.revision_id%TYPE;
+ begin
+ content_item.set_live_revision(:revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_preamble
+ where slide_id = :revision_id;
+ content_item.set_live_revision(v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_postamble
+ where slide_id = :revision_id;
+ content_item.set_live_revision(v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_bullet_items
+ where slide_id = :revision_id;
+ content_item.set_live_revision(v_revision_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/slide-publish-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/slide-publish-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/slide-publish-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ postgresql7.1
+
+
+
+ select content_item__set_live_revision(:revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_preamble
+ where slide_id = :revision_id;
+ content_item__set_live_revision(v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_postamble
+ where slide_id = :revision_id;
+ content_item__set_live_revision(v_revision_id);
+
+ select id into v_revision_id
+ from cr_wp_slides_bullet_items
+ where slide_id = :revision_id;
+ content_item__set_live_revision(v_revision_id);
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/slide-revisions-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/slide-revisions-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/slide-revisions-oracle.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip,
+ i.live_revision,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_revisions r,
+ cr_items i,
+ acs_objects ao,
+ persons p
+ where r.item_id = :slide_item_id
+ and ao.object_id = r.revision_id
+ and i.item_id = r.item_id
+ and p.person_id = ao.creation_user
+ order by creation_date
+
+
+
+
+
+
Index: openacs-4/packages/wp-slim/www/slide-revisions-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/slide-revisions-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/www/slide-revisions-postgresql.xql 4 Oct 2001 04:23:13 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select r.revision_id,
+ to_char(ao.creation_date, 'HH24:MI:SS Mon DD, YYYY') as creation_date,
+ ao.creation_ip,
+ i.live_revision,
+ p.first_names || ' ' || p.last_name as full_name
+ from cr_revisions r,
+ cr_items i,
+ acs_objects ao,
+ persons p
+ where r.item_id = :slide_item_id
+ and ao.object_id = r.revision_id
+ and i.item_id = r.item_id
+ and p.person_id = ao.creation_user
+ order by creation_date
+
+
+
+
+
+