Index: openacs-4/packages/simple-survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/one.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simple-survey/www/admin/one.tcl	18 Mar 2002 16:58:06 -0000	1.6
+++ openacs-4/packages/simple-survey/www/admin/one.tcl	10 May 2002 00:33:40 -0000	1.7
@@ -101,7 +101,7 @@
 order by sort_key" {
 
 
-    set question_options [list "<a href=\"question-modify-text?[export_url_vars question_id survey_id]\">modify text</a>" "<a href=\"question-delete?question_id=$question_id\">delete</a>" "<a href=\"question-add?[export_url_vars survey_id]&after=$sort_key\">add new question</a>"]
+    set question_options [list "<a href=\"question-modify-text?[export_url_vars question_id survey_id]\">modify text</a>" "<a href=\"question-copy?[export_vars {{referer $target} question_id}]\">copy</a>" "<a href=\"question-delete?question_id=$question_id\">delete</a>" "<a href=\"question-add?[export_url_vars survey_id]&after=$sort_key\">add new question</a>"]
 
     if { $count > 0 } {
 	lappend question_options "<a href=\"question-swap?[export_url_vars survey_id sort_key]\">swap with prev</a>"