Index: openacs-4/packages/survey/www/admin/survey-copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-copy.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/survey/www/admin/survey-copy.tcl 18 Sep 2002 12:15:21 -0000 1.2 +++ openacs-4/packages/survey/www/admin/survey-copy.tcl 12 Mar 2003 01:05:52 -0000 1.3 @@ -13,15 +13,14 @@ set user_id [ad_get_user_id] ad_require_permission $package_id survey_create_question - db_1row get_survey_info {} set title_name $name -set name "Copy of $name" +set name "[_ survey.Copy_of] $name" ad_form -name copy_survey -form { new_survey_id:key - {message:text(inform) {value "Copying a survey will create a new survey with copies of all the questions.
None of the response data will be duplicated."}} - {name:text(text) {label Name} {html {size 60}} {value $name}} + {message:text(inform) {value "[_ survey.lt_Copying_a_survey_will]"}} + {name:text(text) {label "[_ survey.Name_copy]"} {html {size 60}} {value $name}} {survey_id:text(hidden) {value $survey_id}} } -on_submit { @@ -34,5 +33,5 @@ } -set context_bar [ad_context_bar "Copy $title_name"] +set context_bar [ad_context_bar "[_ survey.Copy] $title_name"] ad_return_template