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.26.2.2 -r1.26.2.3
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	18 Jul 2005 16:56:37 -0000	1.26.2.2
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	19 Jul 2005 11:12:32 -0000	1.26.2.3
@@ -32,14 +32,15 @@
     {-show_feedback ""}
     {-section_navigation ""}
     {-survey_p ""}
+    {-package_id ""}
     {-type ""}
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
     @creation-date 2004-07-26
 
     New assessment to the database
 } {
-    set package_id [ad_conn package_id]
+    if { ![exists_and_not_null package_id] } { set package_id [ad_conn package_id] }
     set folder_id [as::assessment::folder_id -package_id $package_id]
 
     # Insert as_assessment in the CR (and as_assessments table) getting the revision_id (as_assessment_id)