Index: openacs-4/packages/simple-survey/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/index.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/simple-survey/www/index.tcl	10 Sep 2002 22:23:23 -0000	1.5
+++ openacs-4/packages/simple-survey/www/index.tcl	1 Mar 2005 00:01:42 -0000	1.6
@@ -17,7 +17,7 @@
 
 set context [list "Surveys"]
 
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 db_multirow surveys survey_select {
     select survey_id, name