Index: openacs-4/packages/survey/tcl/survey-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/tcl/survey-procs.xql	15 Sep 2002 23:56:54 -0000	1.1
+++ openacs-4/packages/survey/tcl/survey-procs.xql	9 Jan 2003 04:05:33 -0000	1.2
@@ -217,7 +217,18 @@
 
 <fullquery name="survey_copy.get_survey_info">
 <querytext>
-select * from surveys where survey_id=:survey_id
+	select
+	    survey_id,
+	    name,
+  	    description,
+	    description_html_p,
+	    'f' as enabled_p,
+	    single_response_p,
+	    editable_p,
+	    single_section_p,
+	    type,
+	    display_type 
+	from surveys where survey_id=:survey_id
 </querytext>
 </fullquery>