Skip to content

I
intranet-simple-survey
Commit 464d889d authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- added return_url

parent 4309dc17
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
tcl/intranet-simple-survey-procs.tcl
View file @ 464d889d
......@@ -223,8 +223,9 @@ ad_proc im_survsimp_component { object_id } {
# -----------------------------------------------------------
# Return the results
set take_survy_l10n [lang::message::lookup "" intranet-simple-survey.Take_a_Survey "Add a valuation"]
set take_survey_url [export_vars -base "/simple-survey/" {{related_object_id $object_id}}]
set take_survy_l10n [lang::message::lookup "" intranet-simple-survey.Take_a_Survey "Take a survey"]
set return_url [im_url_with_query]
set take_survey_url [export_vars -base "/simple-survey/" {{related_object_id $object_id} return_url}]
append survsimp_response_html "
<ul>
<li><a href=\"$take_survey_url\">$take_survy_l10n</a></li>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment