Index: openacs-4/packages/simple-survey/sql/oracle/simple-survey-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/sql/oracle/simple-survey-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simple-survey/sql/oracle/simple-survey-create.sql	19 Jul 2001 22:36:47 -0000	1.1
+++ openacs-4/packages/simple-survey/sql/oracle/simple-survey-create.sql	11 Feb 2002 07:10:48 -0000	1.2
@@ -128,7 +128,11 @@
 	single_editable_p	char(1)
 				constraint survsimp_surv_single_edit_p_ck
 				check(single_editable_p in ('t','f')),
-	type                    varchar(20)
+	type                    varchar(20),
+        package_id              integer
+                                constraint survsimp_package_id_nn not null
+                                constraint survsimp_package_id_fk references
+                                apm_packages (package_id) on delete cascade
 );
 
 -- each question can be 
@@ -324,6 +328,7 @@
 		single_editable_p	in survsimp_surveys.single_editable_p%TYPE	default 't',
 		enabled_p	in survsimp_surveys.enabled_p%TYPE			default 'f',
 		type		in survsimp_surveys.type%TYPE				default 'general',
+                package_id      in survsimp_surveys.package_id%TYPE,
 		object_type	in acs_objects.object_type%TYPE				default 'survsimp_survey',
 		creation_date	in acs_objects.creation_date%TYPE			default sysdate,
 		creation_user	in acs_objects.creation_user%TYPE			default null,
@@ -350,6 +355,7 @@
 		single_editable_p	in survsimp_surveys.single_editable_p%TYPE	default 't',
 		enabled_p	in survsimp_surveys.enabled_p%TYPE			default 'f',
 		type		in survsimp_surveys.type%TYPE				default 'general',
+                package_id      in survsimp_surveys.package_id%TYPE,
 		object_type	in acs_objects.object_type%TYPE				default 'survsimp_survey',
 		creation_date	in acs_objects.creation_date%TYPE			default sysdate,
 		creation_user	in acs_objects.creation_user%TYPE			default null,
@@ -369,10 +375,10 @@
 		);   
 		insert into survsimp_surveys
 			(survey_id, name, short_name, description, description_html_p,
-			single_response_p, single_editable_p, enabled_p, type)
+			single_response_p, single_editable_p, enabled_p, type, package_id)
 			values
 			(v_survey_id, new.name, new.short_name, new.description, new.description_html_p,
-			new.single_response_p, new.single_editable_p, new.enabled_p, new.type);
+			new.single_response_p, new.single_editable_p, new.enabled_p, new.type, new.package_id);
 
 		return v_survey_id;
 	end new;
Index: openacs-4/packages/simple-survey/www/admin/question-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/question-add-3.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simple-survey/www/admin/question-add-3.tcl	15 Jun 2001 00:45:42 -0000	1.2
+++ openacs-4/packages/simple-survey/www/admin/question-add-3.tcl	11 Feb 2002 07:10:48 -0000	1.3
@@ -98,7 +98,7 @@
 	    set sort_key 1
 	}
 	
-	db_exec_plsql reate_question {
+	db_exec_plsql create_question {
 	    begin
 		:1 := survsimp_question.new (
 		    question_id => :question_id,
Index: openacs-4/packages/simple-survey/www/admin/survey-create-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-create-2-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simple-survey/www/admin/survey-create-2-oracle.xql	15 Jun 2001 01:06:40 -0000	1.1
+++ openacs-4/packages/simple-survey/www/admin/survey-create-2-oracle.xql	11 Feb 2002 07:10:48 -0000	1.2
@@ -15,6 +15,7 @@
                     description_html_p => :description_html_p,
                     type => :type,
                     context_id => :package_id,
+                    package_id => :package_id,
 		    creation_user => :user_id
                 );
             end;
Index: openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl	15 Jun 2001 00:45:42 -0000	1.2
+++ openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl	11 Feb 2002 07:10:48 -0000	1.3
@@ -149,6 +149,7 @@
                     description => :description,
                     description_html_p => :description_html_p,
                     type => :type,
+                    package_id => :package_id,
                     context_id => :package_id,
 		    creation_user => :user_id
                 );