- Fixed deprecated proc

71118173 · Frank Bergmann · c2ff47f8 · 71118173 · 71118173
Commit 71118173 authored Apr 14, 2016 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

index.tcl www/index.tcl +1 -3

one.tcl www/one.tcl +1 -1

No files found.
--- a/www/index.tcl
+++ b/www/index.tcl
@@ -16,10 +16,8 @@ ad_page_contract {
 }

 set package_id [ad_conn package_id]
-
 set context [list "Surveys"]
-
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]

 db_multirow -extend {survey_url} surveys survey_select {
    select survey_id, name

--- a/www/one.tcl
+++ b/www/one.tcl
@@ -99,7 +99,7 @@ if {![info exists task]} {

 ad_require_permission $survey_id survsimp_take_survey

-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 set package_url "/simple-survey"