Index: openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl	2 Feb 2005 21:31:15 -0000	1.2
+++ openacs-4/packages/assessment/www/asm-admin/assessment-copy.tcl	30 Mar 2005 10:27:38 -0000	1.3
@@ -11,6 +11,8 @@
 }
 
 set package_id [ad_conn package_id]
+set user_id [ad_conn untrusted_user_id]
+
 permission::require_permission -object_id $package_id -privilege create
 
 permission::require_permission -object_id $assessment_id -privilege admin
@@ -41,6 +43,7 @@
     if {$confirmation} {
 	set assessment_id [as::assessment::copy -assessment_id $assessment_id -name $name]
     }
+    permission::grant -party_id $user_id -object_id $assessment_id -privilege admin
 } -after_submit {
     ad_returnredirect [export_vars -base one-a {assessment_id}]
     ad_script_abort