Index: openacs-4/contrib/packages/survey/tcl/survey-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-procs-postgresql.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/contrib/packages/survey/tcl/survey-procs-postgresql.xql	12 Mar 2004 06:35:45 -0000	1.2
+++ openacs-4/contrib/packages/survey/tcl/survey-procs-postgresql.xql	1 Jan 2005 17:39:00 -0000	1.2.2.1
@@ -38,7 +38,7 @@
 <fullquery name="survey_question_copy.create_question">      
       <querytext>
 	SELECT survey_question__new (
-		    NULL,
+		    :new_question_id,
 		    :section_id,
                     :new_sort_order,
                     :question_text,
@@ -53,7 +53,8 @@
 		    :answer_description,
 		    :predefined_question_id,
 		    :user_id,
-		    :section_id
+		    :section_id,
+                    :new_question_id
 		);
       </querytext>
 </fullquery>
@@ -84,7 +85,7 @@
 <fullquery name="survey_copy.section_create">
 <querytext>
 	    select survey_section__new (
-	              NULL,
+	              :new_section_id,
 		      :new_survey_id,
 		      :name,
 		      :description,
@@ -95,7 +96,8 @@
 		      :block_section_p,
 		      :page_break_p,
 		      :user_id,
-	              :package_id
+	              :package_id,
+                      :new_section_id
 		      );
 </querytext>
 </fullquery>
@@ -263,4 +265,30 @@
 </fullquery>
 
 
+<fullquery name="survey_question_new.create_question">      
+      <querytext>
+
+	select survey_question__new (
+		    :question_id,
+		    :section_id,
+                    :sort_order,
+                    :question_text, 
+                    :abstract_data_type,
+                    :required_p,
+                    :active_p,
+                    :presentation_type,
+		    :presentation_options,
+                    :presentation_alignment,
+		    :question_html_p,
+		    :summary_type,
+		    :answer_description,
+		    NULL,
+		    :creation_user,
+		    :section_id,
+                    :pretty_id
+	)
+	
+      </querytext>
+</fullquery>
+
 </queryset>