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
--- openacs-4/packages/wp-slim/sql/oracle/upgrade-4.0b1-4.6.sql	21 May 2003 15:12:15 -0000	1.1.2.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,124 +0,0 @@
--- 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'))
-);