Index: openacs-4/packages/wp-slim/sql/oracle/upgrade-4.0b1-4.6.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/sql/oracle/Attic/upgrade-4.0b1-4.6.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/wp-slim/sql/oracle/upgrade-4.0b1-4.6.sql	21 May 2003 15:12:15 -0000	1.1.2.1
@@ -0,0 +1,124 @@
+-- upgrade script
+-- some extra permissions roc@
+declare
+    default_context acs_objects.object_id%TYPE;
+    the_public acs_objects.object_id%TYPE;
+Begin
+
+    default_context := acs.magic_object_id('default_context');
+    the_public := acs.magic_object_id('the_public');
+
+
+    acs_permission.revoke_permission (
+        object_id => default_context,
+        grantee_id => the_public,
+        privilege => 'wp_view_presentation'
+    );
+
+
+	acs_privilege.add_child('wp_edit_presentation',  'wp_view_presentation');
+	acs_privilege.add_child('wp_admin_presentation', 'wp_create_presentation');
+	acs_privilege.add_child('wp_admin_presentation', 'wp_edit_presentation');
+	acs_privilege.add_child('wp_admin_presentation', 'wp_delete_presentation');
+
+-- lets give site-wide permissions, wp-permissions! 
+	acs_privilege.add_child('admin', 'wp_admin_presentation');
+end;
+/
+show errors
+
+
+
+alter table wp_styles add public_p char(1) default 'f' check(public_p in ('t','f'));
+alter table wp_styles add owner integer constraint wp_styles_to_users references users (user_id);
+
+create sequence wp_style_seq;
+
+-- this is also a new index!  roc@
+create index wp_styles_by_owner on wp_styles(owner);
+
+-- new table for supporting background images!
+-- Images used for styles.
+
+create table wp_style_images (
+-- this one references to a cr!
+	wp_style_images_id integer  primary key,
+	style_id	integer references wp_styles(style_id) on delete cascade not null,
+	file_size	integer not null,
+	file_name	varchar(200) not null
+);
+
+create index wp_style_images_style_id on wp_style_images(style_id);
+
+create or replace package wp_style
+as
+
+procedure delete (
+    p_style_id     in wp_styles.style_id%TYPE
+);
+
+procedure image_delete(
+    p_revision_id       in wp_style_images.wp_style_images_id%TYPE
+);
+
+end wp_style;
+/
+show errors
+
+
+
+create or replace package body wp_style 
+as
+
+procedure delete (
+    p_style_id	 in wp_styles.style_id%TYPE
+)
+is 
+    p_item_id			integer;
+begin
+
+	for one_image in (
+	    select * from wp_style_images 
+	    where wp_style_images_id = (select background_image from wp_styles where style_id = wp_style.delete.p_style_id))
+	loop
+		delete from wp_style_images where wp_style_images_id = one_image.wp_style_images_id;
+		select item_id into p_item_id from cr_revisions where revision_id = one_image.wp_style_images_id;
+		
+		content_item.delete(item_id => p_item_id);
+	end loop;
+	
+	update cr_wp_slides set style = -1 where style = wp_style.delete.p_style_id;
+	update cr_wp_presentations set style = -1 where style = wp_style.delete.p_style_id;
+	delete from wp_styles where style_id = wp_style.delete.p_style_id;
+
+end;
+
+
+
+procedure image_delete(
+    p_revision_id	in wp_style_images.wp_style_images_id%TYPE
+) 
+is
+    p_item_id			integer;
+begin
+
+    update wp_styles set background_image = 0 where background_image = wp_style.image_delete.p_revision_id;
+
+    delete from wp_style_images 
+    where wp_style_images_id = wp_style.image_delete.p_revision_id;
+    
+    select item_id into p_item_id from cr_revisions where revision_id = wp_style.image_delete.p_revision_id;
+
+    content_item.delete(item_id => p_item_id);
+
+end;
+
+
+end wp_style;
+/
+show errors
+
+
+alter table cr_wp_presentations add (
+      show_comments_p char(1) default 'f' constraint cr_wp_pres_show_comments_p check(show_comments_p in ('t','f'))
+);