- Replaced "proc_doc" by "ad_proc -public" in all files

  in order for compatibility with OpenACS 5.9

tcl/survsimp-procs.tcl

@@ -14,7 +14,7 @@ ad_library {
 
 }
 
-proc_doc survsimp_question_display { 
+ad_proc -public survsimp_question_display { 
     question_id 
     {edit_previous_response_p "f"} 
     {previous_response_id ""}
@@ -249,7 +249,7 @@ proc_doc survsimp_question_display {
     return $html
 }
 
-proc_doc util_show_plain_text { text_to_display } "allows plain text (e.g. text entered through forms) to look good on screen without using tags; preserves newlines, angle brackets, etc." {
+ad_proc -public util_show_plain_text { text_to_display } "allows plain text (e.g. text entered through forms) to look good on screen without using tags; preserves newlines, angle brackets, etc." {
 	regsub -all "\\&" $text_to_display "\\&" good_text
 	regsub -all "\>" $good_text "\\>" good_text
 	regsub -all "\<" $good_text "\\&lt;" good_text
@@ -259,7 +259,7 @@ proc_doc util_show_plain_text { text_to_display } "allows plain text (e.g. text
 	return $good_text
 }
 
-proc_doc survsimp_answer_summary_display {response_id {html_p 1} {category_id_list ""}} "Returns a string with the questions and answers. If html_p =t, the format will be html. Otherwise, it will be text.  If a list of category_ids is provided, the questions will be limited to that set of categories." {
+ad_proc -public survsimp_answer_summary_display {response_id {html_p 1} {category_id_list ""}} "Returns a string with the questions and answers. If html_p =t, the format will be html. Otherwise, it will be text.  If a list of category_ids is provided, the questions will be limited to that set of categories." {
 
 	set return_string ""
 	set question_id_previous ""
@@ -381,7 +381,7 @@ order by sort_key"
 	return "$return_string"
 }
 
-proc_doc survsimp_survey_admin_check { user_id survey_id } { Returns 1 if user is allowed to administer a survey or is a site administrator, 0 otherwise. } {
+ad_proc -public survsimp_survey_admin_check { user_id survey_id } { Returns 1 if user is allowed to administer a survey or is a site administrator, 0 otherwise. } {
 	if { ![ad_permission_p -user_id $user_id $survey_id "admin"] && [db_string survsimp_creator_p "
 	select creation_user
 	from   survsimp_surveys
@@ -392,7 +392,7 @@ proc_doc survsimp_survey_admin_check { user_id survey_id } { Returns 1 if user i
 }
 
 # For site administrator new stuff page.
-proc_doc ad_survsimp_new_stuff { since_when only_from_new_users_p purpose } "Produces a report of the new surveys created for the site administrator." {
+ad_proc -public ad_survsimp_new_stuff { since_when only_from_new_users_p purpose } "Produces a report of the new surveys created for the site administrator." {
 	if { $purpose != "site_admin" } {
 	return ""
 	}
@@ -425,7 +425,7 @@ if { ![info exists ad_new_stuff_module_list] || [util_search_list_of_lists $ad_n
 	lappend ad_new_stuff_module_list [list "Surveys" ad_survsimp_new_stuff]
 }
 
-proc_doc survsimp_survey_short_name_to_id  {short_name} "Returns the id of the survey
+ad_proc -public survsimp_survey_short_name_to_id  {short_name} "Returns the id of the survey
 given the short name" {
 	
 	set survey_id [db_string survsimp_id_from_shortname "select survey_id from survsimp_surveys where lower(short_name) = lower(:short_name)" -default ""]   
@@ -433,7 +433,7 @@ given the short name" {
 	return $survey_id
 }
 
-proc_doc survsimp_survey_get_response_id {survey_id user_id} "Returns the id of the user's most recent response to a survey" {
+ad_proc -public survsimp_survey_get_response_id {survey_id user_id} "Returns the id of the user's most recent response to a survey" {
 	
 	set response_id [ db_string get_response_id {
 	select response_id
@@ -451,7 +451,7 @@ proc_doc survsimp_survey_get_response_id {survey_id user_id} "Returns the id of
 	return $response_id
 }
 
-proc_doc survsimp_survey_get_score {survey_id user_id} "Returns the score of the user's most recent response to a survey" {
+ad_proc -public survsimp_survey_get_score {survey_id user_id} "Returns the score of the user's most recent response to a survey" {
 	
 	set response_id [ survsimp_survey_get_response_id $survey_id $user_id ]
 	
@@ -472,7 +472,7 @@ proc_doc survsimp_survey_get_score {survey_id user_id} "Returns the score of the
 	return $score
 }
 
-proc_doc survsimp_get_response_date {survey_id user_id} "Returns the date of the user's most recent response to a survey" {
+ad_proc -public survsimp_get_response_date {survey_id user_id} "Returns the date of the user's most recent response to a survey" {
 	
 	set response_id [ survsimp_survey_get_response_id $survey_id $user_id ]
 
@@ -508,7 +508,7 @@ ad_proc -public survsimp_display_type_select {
 	return $return_html
 }
 		
-proc_doc survsimp_bt_mergepiece {htmlpiece values} {
+ad_proc -public survsimp_bt_mergepiece {htmlpiece values} {
 	HTMLPIECE is a form usually; VALUES is an ns_set
 
 	NEW VERSION DONE BY BEN ADIDA (ben@mit.edu)