Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	27 Apr 2005 00:16:41 -0000	1.25
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	2 May 2005 10:11:22 -0000	1.26
@@ -231,14 +231,17 @@
 ad_proc -public as::assessment::copy {
     {-assessment_id:required}
     {-name ""}
+    {-folder_id ""}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-23
 
     Copies an assessment with all sections and items
 } {
-    set package_id [ad_conn package_id]
-    set folder_id [as::assessment::folder_id -package_id $package_id]
+    if {[empty_string_p $folder_id]} {
+	set package_id [ad_conn package_id]
+	set folder_id [as::assessment::folder_id -package_id $package_id]
+    }
 
     data -assessment_id $assessment_id
     array set a [array get assessment_data]