Index: openacs-4/packages/fs-portlet/www/fs-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.adp,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/fs-portlet/www/fs-portlet.adp	28 Apr 2002 18:30:29 -0000	1.17
+++ openacs-4/packages/fs-portlet/www/fs-portlet.adp	30 Apr 2002 02:43:13 -0000	1.18
@@ -46,19 +46,19 @@
       <td><li></td>
       <td>
         View files modified in the last
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=999999">All</a>
+        <a href="@contents_url@n_past_days=999999">All</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=1">1</a>
+        <a href="@contents_url@n_past_days=1">1</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=2">2</a>
+        <a href="@contents_url@n_past_days=2">2</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=3">3</a>
+        <a href="@contents_url@n_past_days=3">3</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=7">7</a>
+        <a href="@contents_url@n_past_days=7">7</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=14">14</a>
+        <a href="@contents_url@n_past_days=14">14</a>
         |
-        <a href="@url@folder-contents?folder_id=@folder_id@&recurse_p=1&n_past_days=30">30</a>
+        <a href="@contents_url@n_past_days=30">30</a>
         days.
       </td>
     </tr>
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"]