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 -r1.7 -r1.8
--- 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	3 Sep 2024 15:37:54 -0000	1.8
@@ -13,25 +13,34 @@
 set user_id [ad_conn user_id]
 
 permission::require_permission -object_id $package_id -privilege survey_create_question
-db_1row get_survey_info {}
+db_1row get_survey_info {
+    select * from surveys
+    where survey_id = :survey_id
+}
 set title_name $name
 set name "[_ survey.Copy_of] $name"
 
 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 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
 }
 
 
 set context "[_ survey.Copy] $title_name"
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: