Index: openacs-4/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/survey/www/respond.tcl	21 Jan 2005 17:24:28 -0000	1.7
+++ openacs-4/packages/survey/www/respond.tcl	1 Mar 2005 00:01:44 -0000	1.8
@@ -21,7 +21,7 @@
 	if ![db_0or1row survey_exists {}] {
 	    ad_complain "[_ survey.lt_Survey_survey_id_do_no]"
 	}
-    set user_id [ad_maybe_redirect_for_registration]
+    set user_id [auth::require_login]
     set number_of_responses [db_string count_responses {}]
     get_survey_info -survey_id $survey_id
     set single_section_p $survey_info(single_section_p)