Index: openacs-4/packages/survey/www/admin/survey-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-create.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/survey-create.tcl	16 Sep 2002 00:00:25 -0000	1.1
+++ openacs-4/packages/survey/www/admin/survey-create.tcl	16 Sep 2002 10:26:34 -0000	1.2
@@ -64,26 +64,7 @@
 
 	# survey type-specific inserts
 
-	if { $type == "scored" } {
 
-	    foreach variable_name [split $variable_names ","] {
-	    
-		set variable_id [db_nextval "survey_variable_id_sequence"]
-
-		db_dml add_variable_name ""
-
-		db_dml map_variable_name ""
-	    }
-
-	    set logic_id [db_nextval "survey_logic_id_sequence"]
-	
-	    ### since survey_logic contains a clob on oracle and a text column
-            ### on postgresql, the sql statement is different for each database
-	    db_dml add_logic "" -clobs [list $logic]
-
-	    db_dml map_logic ""
-	}
-
 	# create new section here. the questions go in the section
 	# section_id is null to create a new section
 	# we might want to specify a section_id later for
@@ -99,14 +80,6 @@
 
 # function to insert survey type-specific form html
 
-if {$type=="scored"} {
-	    upvar variable_names local_variable_names
-    ad_form -extend -name create_survey -form {
-	{variable_names:text(text)     {label "Survey variable names<br />(comma-seperated list)"} {value $local_variable_names}
-	    {html {size 65}} }
-    }
-}
-
 set context_bar [ad_context_bar "Create Survey"]
 
 ad_return_template