Index: openacs-4/packages/assessment/tcl/as-section-data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-data-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-section-data-procs.tcl	21 Feb 2005 14:32:56 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-section-data-procs.tcl	12 Jun 2006 03:02:38 -0000	1.5
@@ -12,13 +12,16 @@
     {-subject_id ""}
     {-staff_id ""}
     {-points ""}
+    {-package_id ""}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-14
 
     New as_section_data
 } {
-    set package_id [ad_conn package_id]
+    if {$package_id eq ""} {
+	set package_id [ad_conn package_id]
+    }
     set folder_id [as::assessment::folder_id -package_id $package_id]
 
     if {[db_0or1row section_data_exists {}]} {