Index: openacs-4/packages/survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 10:26:34 -0000	1.2
@@ -23,12 +23,13 @@
 get_survey_info -survey_id $survey_id
 
 # get users and # who responded etc...
-set community_id [dotlrn_community::get_community_id_from_url]
-set n_eligible [db_string n_eligible { 
-    select count(*) from dotlrn_member_rels_full
-    where rel_type='dotlrn_member_rel'
-    and community_id=:community_id}]
-
+if {[apm_package_installed_p dotlrn]} {
+    set community_id [dotlrn_community::get_community_id_from_url]
+    set n_eligible [db_string n_eligible { 
+	select count(*) from dotlrn_member_rels_full
+	where rel_type='dotlrn_member_rel'
+	and community_id=:community_id}]
+}
 set return_html ""
 
 # Leaving this commented out until we evaluate scored surveys -- Luke
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