Index: openacs-4/packages/file-storage/lib/folder-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-admin.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/lib/folder-admin.tcl	8 Aug 2006 21:26:48 -0000	1.2
@@ -0,0 +1,5 @@
+set admin_p [permission::permission_p -object_id $folder_id -party_id [ad_conn user_id] -privilege "admin"]
+set return_url [ad_return_url]
+foreach { package_id root_folder_id } [fs::get_folder_package_and_root $folder_id] break
+set fs_url [site_node::get_url_from_object_id -object_id $package_id]
+set folder_url [export_vars -base $fs_url {folder_id return_url}]
\ No newline at end of file