- Changed ad_conn_user_id to ad_conn user_id

- Added workflow updates in order to eliminate
  "modify" as the first transition in a WF

tcl/survsimp-procs.tcl

@@ -55,7 +55,7 @@ proc_doc survsimp_question_display {
     set user_value ""
 
     if {$edit_previous_response_p == "t"} {
- 	set user_id [ad_get_user_id]
+ 	set user_id [ad_conn user_id]
 
  	set prev_response_query "
 	select	

www/admin/question-add-2.tcl

@@ -29,7 +29,7 @@ ad_page_contract {
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 ad_require_permission $package_id survsimp_create_question
 
 set question_id [db_nextval acs_object_id_seq]

www/admin/question-add-3.tcl

@@ -42,7 +42,7 @@ ad_page_contract {
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 ad_require_permission $package_id survsimp_create_question
 
 set exception_count 0

www/admin/question-add.tcl

@@ -15,7 +15,7 @@ ad_page_contract {
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 ad_require_permission $package_id survsimp_create_question
 
 db_1row simpsurv_survey_properties "select name, description, type

www/admin/question-delete-2.tcl

@@ -15,7 +15,7 @@ ad_page_contract {
 
 ad_require_permission $question_id survsimp_delete_question
 
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
 set survey_id [db_string survsimp_survey_id_from_question_id "select survey_id from survsimp_questions where question_id = :question_id" ]
 survsimp_survey_admin_check $user_id $survey_id

www/admin/response-drill-down.tcl

@@ -47,7 +47,7 @@ if { !$response_exists_p } {
     return
 }
 
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
 set survey_name [db_string survey_name "select name from survsimp_surveys where survey_id = :survey_id"]
 

www/admin/responses.tcl

@@ -18,7 +18,7 @@ ad_page_contract {
 
 ad_require_permission $survey_id survsimp_admin_survey
 
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
 # nstrug - 12/9/2000
 # Summarise scored responses for all users

www/admin/survey-create-2.tcl

@@ -31,7 +31,7 @@ set package_id [ad_conn package_id]
 # bounce the user if they don't have permission to admin surveys
 ad_require_permission $package_id survsimp_create_survey
 
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
 set short_name [string range $name 0 99]
 

www/admin/view-text-responses.tcl

@@ -14,7 +14,7 @@ ad_page_contract {
   question_id:integer,notnull
 
 }
-set user_id [ad_get_user_id]
+set user_id [ad_conn user_id]
 
 db_1row one_question "
   select question_text, survey_id