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.2 -r1.3
--- openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 10:26:34 -0000	1.2
+++ openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 10:28:14 -0000	1.3
@@ -32,22 +32,6 @@
 }
 set return_html ""
 
-# Leaving this commented out until we evaluate scored surveys -- Luke
-#  switch $survey_info(type) {
-#      "general" {
-#  	set return_html ""
-#      }
-#      "scored" {
-#  	upvar section_id local_section_id
-#  	set return_html "<li><a href=\"edit-logic?section_id=$local_section_id\">Edit survey logic</a>"
-#      }
-    
-#      default {
-#  	set return_html ""
-#      }
-#      return $return_html
-#  }
-
 set creation_date [util_AnsiDatetoPrettyDate $survey_info(creation_date)]
 set user_link [acs_community_member_url -user_id $survey_info(creation_user)]
 if {$survey_info(single_response_p) == "t"} {
Index: openacs-4/packages/survey/www/admin/question-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/question-add.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/question-add.tcl	16 Sep 2002 10:28:14 -0000	1.2
@@ -21,7 +21,6 @@
 
 get_survey_info -section_id $section_id
 
-# function to insert survey type-specific form html
 ad_form -name create_question -action question-add-2  -export { after } -form {
     question_id:key
     {section_id:text(hidden) {value $section_id}}