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.7 -r1.7.4.1 --- openacs-4/packages/survey/www/admin/survey-copy.tcl 27 Jun 2015 20:46:16 -0000 1.7 +++ openacs-4/packages/survey/www/admin/survey-copy.tcl 17 Dec 2019 15:20:54 -0000 1.7.4.1 @@ -19,15 +19,15 @@ ad_form -name copy_survey -form { new_survey_id:key - {message:text(inform) {value "[_ survey.lt_Copying_a_survey_will]"}} + {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 { set new_survey_id [survey_copy -survey_id $survey_id -new_name $name] set survey_id $new_survey_id - + ad_returnredirect [export_vars -base one survey_id] ad_script_abort }