Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	25 Apr 2002 22:08:57 -0000	1.8
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	30 Apr 2002 02:43:13 -0000	1.9
@@ -52,7 +52,15 @@
 }
 
 set url [portal::mapping::get_url -object_id $folder_id]
+set contents_url [lindex $config(contents_url) 0]
 
+if {[empty_string_p $contents_url]} {
+    set recurse_p 1
+    set contents_url "${url}folder-contents?[export_vars {folder_id recurse_p}]&"
+} else {
+    set contents_url "${contents_url}?"
+}
+
 set write_p [permission::permission_p -object_id $folder_id -privilege "write"]
 set admin_p [permission::permission_p -object_id $folder_id -privilege "admin"]