- Fixed deprecated call

69add5bf · Frank Bergmann · 5fbc06e3 · 69add5bf
Commit 69add5bf authored Aug 10, 2016 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

intranet-trans-project-feedback-procs.tcl tcl/intranet-trans-project-feedback-procs.tcl +1 -1

No files found.
--- a/tcl/intranet-trans-project-feedback-procs.tcl
+++ b/tcl/intranet-trans-project-feedback-procs.tcl
@@ -100,7 +100,7 @@ proc_doc survsimp_question_display_trans_feedback {
    set user_value ""

    if {$edit_previous_response_p == "t"} {
-        set user_id [ad_get_user_id]
+        set user_id [auth::require_login]

        set prev_response_query "
        select