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.22 -r1.23
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	9 Apr 2005 22:39:27 -0000	1.22
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	13 Apr 2005 09:57:39 -0000	1.23
@@ -451,9 +451,9 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-01-06
 
-    Returns the folder_id of the package instance
+    Returns the folder_id of the package instance. Cached
 } {
-    return [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+    return [content::folder::get_folder_from_package -package_id $package_id]
 }
 
 ad_proc as::assessment::unique_name {
Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/assessment.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/assessment/www/assessment.tcl	9 Apr 2005 22:39:28 -0000	1.42
+++ openacs-4/packages/assessment/www/assessment.tcl	13 Apr 2005 09:58:47 -0000	1.43
@@ -404,7 +404,9 @@
 	    }
 	}
     }"
+
     set after_submit "{
+
 	if {!\[empty_string_p \$new_section_order\]} {
 	    # go to next section
             if { \$section_to != \"\"} {