Index: openacs-4/packages/survey/tcl/survey-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	31 Oct 2002 13:34:49 -0000	1.3
+++ openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	30 Nov 2002 17:50:15 -0000	1.4
@@ -43,4 +43,39 @@
 	    and r.response_id = o.object_id
     </querytext>
 </fullquery>
+
+<fullquery name="survey_copy.survey_create">
+<querytext>
+        select survey__new (
+                    NULL,
+                    :name,
+                    :description,
+                    :description_html_p,
+		    :single_response_p,
+                    :editable_p,
+                    :enabled_p,
+                    :single_section_p,
+		    :type,
+                    :display_type,
+                    :package_id,
+	            :user_id,
+		    :package_id
+                );
+</querytext>
+</fullquery>
+
+<fullquery name="survey_copy.section_create">
+<querytext>
+	    select survey_section__new (
+	              NULL,
+		      :new_survey_id,
+		      :name,
+		      :description,
+		      :description_html_p,
+		      :user_id,
+	              :package_id
+		      );
+</querytext>
+</fullquery>
+
 </queryset>
\ No newline at end of file