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 {