Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	24 Feb 2005 13:32:59 -0000	1.8
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	13 Apr 2005 08:28:20 -0000	1.9
@@ -315,3 +315,25 @@
 			      ] \
 		content_folder is_sub_folder]
 }
+
+ad_proc content::folder::get_folder_from_package {
+    -package_id:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-01-06
+
+    Returns the folder_id of the package instance. Cached
+} {
+    return [util_memoize [list content::folder::get_folder_from_package_not_cached -package_id $package_id]]
+}
+
+ad_proc content::folder::get_folder_from_package_not_cached {
+    -package_id:required
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-01-06
+
+    Returns the folder_id of the package instance
+} {
+    return [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+}
\ No newline at end of file