Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/file-storage/www/index.tcl	5 Nov 2002 17:19:59 -0000	1.19
+++ openacs-4/packages/file-storage/www/index.tcl	17 May 2003 10:39:54 -0000	1.20
@@ -79,4 +79,10 @@
 
 set context [fs_context_bar_list $folder_id]
 
+set up_url {}
+if { [llength $context] > 1 } {
+    set up_url [lindex [lindex $context end-1] 0]
+    set up_name [lindex [lindex $context end-1] 1]
+}
+
 ad_return_template